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

Question

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

Answer 1

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.

Comments

Напечатайте последовательность чисел 0,5,10...1000

---

var i: integer;

begin
for i:=0 to 1000 div 5 do write(5*i,' ');
writeln;
end.