Задать вопрос
14 октября, 06:20

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

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

+2
Ответы (1)
  1. 14 октября, 08:26
    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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы