#1 составьте программу,выводящую на экран все двухзначные числа,которые кратны произведению цифр,из которых состоит это число. #2 составьте программу вычисления кол-ва трёхзначных чётных чисел, у которых первая цифран в 3 раза больше третьей.

251

330

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

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

Amirmusta

Информатика

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

Program gt; var i,j: integer; begin for i: =1 to 9 do for j: =1 to 9 do if((i*10+j)mod(i*j)=0)then writeln(i,j); end.2)program gt; var a,b,c,k: integer; begink: =0; for a: =1 to 9 dofor b: =0 to 9 dofor c: =0 to 9 doif(a=3*c)then k: =k+1; writeln(k); end.

yulenkaradosti

Информатика

4,4(65 оценок)

Var i,a,s: integer; begin for i: =100 to 999 do begin s: =0; a: =i; while a< > 0 do begin s+=a mod 10; a: =a div 10; end; if (s mod 7 = 0) and (i mod 7 = 0) then writeln(i); end; end.