Паскаль.дано двузначное число m и некоторое число k.определить равна ли сумма цифр числа m числу k

180

185

Посмотреть ответы 2

Ответы на вопрос:

Mom34

Информатика

4,6(99 оценок)

Program qq; uses crt; var m,k,a,b,d,c: integer; begin readln(m,k); a: =m mod 10; b: = (m div 10) mod 10; c: =(m div 10) div 10; d: =a+b+c; if k=d then writeln('да') else writeln('нет'); readkey; end.

2Dtyantrap

Информатика

4,8(89 оценок)

//1a var i,x1,x2: integer; begin for i: =10 to 99 do begin x1: =i mod 10; x2: =i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end. //1б var i,x1,x2: integer; begin for i: =10 to 99 do begin x1: =i mod 10; x2: =i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end. //2 var i,n,a,k1,k2: integer; begin readln(n); for i: =1 to n do begin readln(a); if a< 1985 then k1: =k1+1; if a> 1990 then k2: =k2+1; end; writeln('родившиеся до 1985: ',k1); writeln('родившиеся после 1990: ',k2); end.