Напишите Программы

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

2) Предложите ввести три действительных числа а б с. Определите среди них максимальное

Question

Информатика

Аверий

31 марта, 05:17

Напишите Программы

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

2) Предложите ввести три действительных числа а б с. Определите среди них максимальное

+1

Ответы (1)

Знаете ответ на вопрос?

Ионич · 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.

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

Напишите Программы

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

2) Предложите ввести три действительных числа а б с. Определите среди них максимальное