решить ребусы решить ребусы ">

Объяснение:

1 модем

2 сервер

3 информатика

4 накопитель

5 исполнитель

6 винчестер

7 память

8 интернет

9 клавиатура

10 программист

11 программирование

12 память

13 дисплей

14 клавиша

15 процессор

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.