program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
Пробелы сам поставь т.к. сайт не дает
# 1
count = 0
for i in range(5):
if i % 2 == 0:
print(i)
else:
print(i+1)
# 2
S = 0
while A >= 0:
print(A)
S += A
Объяснение:
Жду )