Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Напишите Программы
1) последовательности чисел 0,5,10....1000
2) Предложите ввести три действительных числа а б с. Определите среди них максимальное

Ответ оставил Гость

1) Условие неполное. Что делать с числами 0, 5, 10 ... 1000?

2)
var a,b,c,max: integer;
begin
  writeln(Введите 3 числа через пробел:);
  readln(a,b,c);
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  writeln(max=,max);
end.