Задать вопрос
19 января, 09:50

Подсчитать сумму двузначных чисел, сумма цифр которых не

превышает 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

+5
Ответы (1)
  1. 19 января, 10:48
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10. Program Pr10; Var n, a, b, k: integer; begin k:=0; for n:=10 to 99 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике