Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
сидерический год.
program xxx;
var i, n : integer;
begin
write ('введите число n-');
readln (n);
writeln('делители числа: ');
for i : =1 to n do
if n mod i = 0 then writeln (i)
end.
это латинский алфавит. латиница.
var i, s : integer;
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
Популярные вопросы