13.Ввести a и b ( меньше 100) и напечатать все числа от 1 до 100, кроме кратных a или b. 14. Найти, сколько чисел от a до b делятся на 7 или 9 (но не на 7 и 9 одновременно). 15. C клавиатуры вводятся 10 целых чисел. Определить,...
13.Ввести a и b (<100) и напечатать все числа от 1 до 100, кроме кратных a или b.
14. Найти, сколько чисел от a до b делятся на 7 или 9 (но не на 7 и 9 одновременно).
15. C клавиатуры вводятся 10 целых чисел. Определить, каких чисел больше: положительных или отрицательных.
16. Напечатать в одну строку все числа от a до b, дважды повторяя числа, кратные 3 или 7.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы