Question

1)даны три числа вывести большее.
2)дано число вывести честно или не четное
Программу написать пожалуйста

Answer 1

//Pascal
//1
var a, b, c: real;
begin
  write('Введите a: '); readln(a);
  write('Введите b: '); readln(b);
  write('Введите c: '); readln(c);
  if (a > b) and (a > c) then writeln('a - наибольшее число = ', a);
  if (b > a) and (b > c) then writeln('b - наибольшее число = ', b);
  if (c > a) and (c > b) then writeln('c - наибольшее число = ', c);
end.

//2
var N: integer;
begin
write('Введите число: '); readln(N);
if N mod 2 = 0 then writeln('Четное')
else writeln('Не четное');
end.

Answer 2

А я ошибся. Бери вариант снизу.

Answer 3

что

Answer 4

что-то я не понимаю тебя