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

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.

Comments

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

---

что

---

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

Answer 2

1.
var  a, b, c: integer;
begin 
write('Введите первое число: '); 
readln(a); 
write('Введите второе число: '); 
readln(b); 
write('Введите третье число: '); 
 readln(c);   
 if (a > b) and (a > c) then    writeln(a); 
  if (b > a) and (b > c) then    writeln(b);   
   if (c > a) and (c > b) then    writeln(c);
end.

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