1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
<span>Любознательный малыш
Взял компьютерную мышь</span><span>И кричит:
«Борис, Борис!
Кушай мышку,
Кис-кис-кис!»
Кот из кухни прибежал,
Мышь понюхал и сказал:
«Кушай сам её, глупыш,
<span> Мне нужна живая мышь!»
</span></span><span>***
На компьютерную мышку
Виртуальный смотрит кот,
Виртуальными когтями
Изнутри экран скребёт.
Но коту послала мышка
Мэйл:
СОБАКА
ТОЧКА
Р – Р – У -У!
Испугался кот-трусишка
И удрал в свою игру.</span>
»
1) Палитра
2) Алгоритм
3) Монитор
4) Графический файл
5) Курсор
6) Бит
7) Пиксель
8) И не то и не другое. ^^ Ну раз два варианта, то пожалуй "думащее устройство".
9) Разрешение изображения
1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
Ответ:
прикладное по дизайнер математика системное по программист система программирования методист программирование и дизайнер системное по
Объяснение: