Напишите программу в pascal abc
Для первых n двузначных натуральных чисел вывести суммы цифр каждого числа
Для первых n двузначных натуральных чисел вывести суммы цифр каждого числа
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.