//Pascal //1) var N, mult: longint; begin mult := 1; write('Введите конечное число: '); readln(N); repeat write(mult, ' '); mult := mult * 5; until (mult > N); readln; end.
//2) var i: byte; sum: integer; begin sum := 0; for i := 1 to 49 do if i mod 2 <> 0 then sum := sum + i; writeln('Sum = ', sum); readln; end.
//1)
var N, mult: longint;
begin
mult := 1;
write('Введите конечное число: '); readln(N);
repeat
write(mult, ' ');
mult := mult * 5;
until (mult > N);
readln;
end.
//2)
var
i: byte;
sum: integer;
begin
sum := 0;
for i := 1 to 49 do
if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;
end.