Подсчитать сумму двузначных чисел, сумма цифр которых не
превышает 10.
Program Pr10;
Var n, a, b, k: integer;
begin
k:=0; for n:=10 to 99 do begin
a:= n div 10; b:=n mod 10
начало в pascal
Ответы
Ответ дал:
0
Program Pr10;
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
Ответ дал:
0
спасибо
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад