Напишите программу в pascal abc
Для первых n двузначных натуральных чисел вывести суммы цифр каждого числа
Ответы на вопрос
Ответил svasdfgh
0
program z1;
var s,n,x,i:integer;
begin
x:=10;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
s:=x div 10+x mod 10;
write(s,' ');
x:=x+1;
end;
end.
var s,n,x,i:integer;
begin
x:=10;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
s:=x div 10+x mod 10;
write(s,' ');
x:=x+1;
end;
end.
Новые вопросы
Математика,
2 года назад
Биология,
9 лет назад