Ответ:https://frillycarelessdatamining.crosser23.repl.run/
Объяснение:
10
Для таких задач пользуйтесь онлайн-калькуляторами.
1)
Program n1;
var x: real;
begin
readln(x);
if(x mod 2=0) then do writeln('четное);
else
writeln('нечетное');
end.
2)
Program n2;
var x, y: real;
begin
if(x mod 2=0) or (y mod 2=0) then do writeln('да');
else
writeln('нет');
end.
3)
Program n3;
var x: real;
begin
readln(x);
if(x<8) and (x>-8) then do writeln('нет');
else
writeln('да');
end.
Program Program1;
var Name: string;
var Cost: real;
begin
write('Введите название товара: ');
readln(Name);
write('Введите цену товара: ');
readln(Cost);
writeln('Ваши расходы на покупки равны', Cost, ' руб.');
end.
=============================
program Program2;
var a, b, c, sum: integer;
var average: real;
begin
writeln('Введите три числа:');
readln(a, b, c);
average := (a + b + c) / 3;
writeln('Их среднее равно ', average);
sum := a + b + c;
writeln('Их сумма равна ', sum);
end.