Сколько существуют двузначных чисел сумма цифр которых = 7. Запишите на языке программирования

Question

Информатика

Германа

25 апреля, 08:12

Сколько существуют двузначных чисел сумма цифр которых = 7. Запишите на языке программирования

+4

Ответы (2)

Знаете ответ?

Эраст · Answer 1

var n, i, i1, i2:integer;

Begin

for i: = 10 to 99 do Begin

i1:=i div 10;

i2:=i mod 10;

if (i1+i2=7) then n:=n+1;

end;

writeln (n) ;

End.

Галуха · Answer 2

Издеваться изволите? Сварите вашего учителя заживо (это не призыв к насилию, а едкое замечание!), если он предлагает такие задачи.

Pascal:

var i, n: integer;

begin

n:=0;

for i:=10 to 99 do

if ((i mod 10) + (i div 10) = 7) then inc (n) ;

writeln ('Otvet: ', n, 'number (s) ') ;

readln

end.