Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Главный Попко

13.Ввести a и b (

более месяца назад
Просмотров : 32    Ответов : 1   

Лучший ответ:

1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
 if (i mod a<>0) and (i mod b<>0) then write(i,' ')
 end.
2)var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
 if (i mod 7=0) xor (i mod 9=0) then k:=k 1; 
write(k) 
end.

3)var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do 
begin 
readln(a);
 if a>0 then pol:=pol 1;
 if a<0 then otr:=otr 1 
end; 
if pol>otr then write('Положительных больше'); 
if otr>pol then write('Отрицательных больше')
end.
4) var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
 if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
end.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы:



Энджелл

Найти значение: min(P1, P2), где P1 – скалярное произведение векторов A и B. P2 – скалярное произведение векторов C и D. Вычисление скалярного произведения векторов оформить подпрограммой. Исходные данные: А=(-5.1, 2.7, 3.4, 6.2); В=(1.2, 3.4, 0, 2.5); С=(2.7, 3.4, 2.5, 6.3, 7.8); D=(1.7, -1.3,...
более месяца назад
Смотреть ответ   Просмотров : 35    Ответов : 1