Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9 и находящихся в интервале левая граница которого равна 100. , оформите , чтоб можно было ввести в программу и скомпилировать.)

275

468

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

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

rusrusik

Информатика

4,5(76 оценок)

На паскале подойдет? program help; var a, i: integer; begin a: =100; i: =0; while i< 10 do if ((a mod 10)< > 7) or ((a mod 9)< > 0) then a: =a+1 else begin i: =i+1; write(a,' '); a: =a+1 end; end.

veronikasizonov

Информатика

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

Uses crt; const n=9; var a: array[1..n] of integer; i,c: integer; begin; readln(c); i: =1; repeat a[i]: =c*2; writeln(a[i]); a[i+1]: =i*i; writeln(a[i+1]); a[i+2]: =(i+2) mod 2; writeln(a[i+2]); i: =i+3; until i=n; end.