Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.
<u>Ответ: С</u>
т.к.
a:=40;
b:=6;
a:=div(a,b), т.е. a/b, div берёт целую часть от деления, 40/6=6 - целая часть
b:=a*b; b:=6*6=36;
a:=div(b,a); a:=36/6=6;
Ответ:
a:=6;
b:=36
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c>100 then writeln('Сумма больше 100=',a+b+c) else writeln('Сумма=',a+b+c);
end.
Пример ввода:
200
50
8
Пример вывода:
Сумма больше 100=258
Синея <span>«Peugeot»
</span><span>Эдгар ошибся с цветом
Вадим с маркой
Артем с маркой</span>