Решите по информатике , по теме "див и мод" дано четырёхзначное число х.найти произведение. надо ! ! ! ! ! !

189

275

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

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

funisinfinity26

Информатика

4,7(57 оценок)

Program pr; uses crt; var x, x1, x2, x3, x4, p: integer; begin readln(x); x1: =x div 1000; x2: =(x div 100) mod 10; x3: =(x mod 100) div 10; x4: =x mod 10; p: =x1*x2*x3*x4; writeln(p); readln; end.

violettasergeevna

Информатика

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

Прости, что отвечаю через 2 часа, был не дома) var i, j, n : integer; flag : boolean; begin write('n = '); read(n); for i : = 2 to n do begin flag : = true; for j : = 2 to i-1 do if (i mod j = 0) then begin flag: =false; break; end; if flag = true then write(i, ' '); end;