Программа на паскале! найти количество пар двузначных чисел сумма которых не превысит 100

densher412 densher412    1   17.09.2019 04:30    10

Ответы
Soldat098 Soldat098  07.10.2020 21:05
Var
  a, b, k: integer;
Begin
  k := 0;
  For a:= 10 to 99 do
    For b:= 10 to 99 do
      if (a+b <= 100) then
        k := k+1;
  WriteLn('k = ',k)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика