1) Найти сумму чисел от 10 до n, кратных 10, где (10 )2)Вывести последовательность четных чисел от m до n, где n 3)Вывести последовательность чисел кратных трем от m до n, где n>m.
Напишите пожалуйста решение на языке Паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"
Напишите пожалуйста решение на языке Паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"
More Questions From This User See All
Answers & Comments
а
var
n, i, sum : integer;
begin
read(n);
sum:=0;
while n>=10 do
begin
if n mod 10 = 0 then sum:=sum+n;
n:=n-1;
end;
write(sum);
end.
var
m, n : integer;
begin
read(n,m);
while m>=n do
begin
writeln(n);
n:=n+1;
end;
end.
var
m, n : integer;
begin
read(n,m);
while m>=n do
begin
if n mod 3 = 0 then writeln(n);
n:=n+1;
end;
end.