На паскале
var a:real;
begin
read(a);
write('вы ввели число ',a)
<span>end.</span>
var
a: integer;
begin
writeln('Введите целое число');
readln(a);
if a mod 2 = 1 then writeln('Число нечетное')
else writeln('Число четное');
end.
Пишу на паскале
var cp:real;
i,k,sum:integer;
mass:array[1..4] of integer;
begin
for i:=1 to 4 do
begin
write('mass[',i,']= ');
read(mass[i]);
k:=k+1;
sum:=sum+mass[i];
end;
cp:=sum/k;
writeln('Среднее значение переменных равно ',cp);
end.
<span>
</span>