Регистрация
IFRASHDIFRASHD
26.09.2021 13:17
Информатика
Есть ответ 👍

Скиньте соч по информатике за 2 четверть 30

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

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

Artyr2017
Artyr2017
4,4(68 оценок)

в этой группе все есть пролистай вниз vk. com/so*r_soc_6_7_8

только без * и пробела в начале пиши

diatel83
diatel83
4,8(97 оценок)
Const a: array [1..3] of integer=(3,4,7); var n, m, i,j : integer; s,t: string; begin for i : =1 to 9 do begin s: ='125'; str(i,t); s: = t + s + t; for j: = 1 to   3 do begin n: = strtoint(s); if n mod a[j] = 0 then m: = m +1; //writeln(n); end; if m = 3 then writeln(n); s: =''; m: =0; end; end.

Популярно: Информатика