1) Составить функцию, которая определяет наибольшее из трех чисел и привести пример ее использования.

Пример:

Введите три числа:

28 15 10

Наибольшее число: 28

2) Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.

Пример:

Введите число:

100

Сумма = 500

Буду очень признателен за помощь.

Question

Информатика

Томуся

27 апреля, 08:28

1) Составить функцию, которая определяет наибольшее из трех чисел и привести пример ее использования.

Пример:

Введите три числа:

28 15 10

Наибольшее число: 28

2) Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.

Пример:

Введите число:

100

Сумма = 500

Буду очень признателен за помощь.

+4

Ответы (1)

Знаете ответ?

Никанор · Answer 1

1 задача.

var a, b, c:integer;

begin

clrscr;

readln (a, b, c) ;

if a>=b and a>=c then writeln (a) else

if b>=a and b > = c then writeln (b) else

writeln (c) ;

end.

2-я задача.

var a, s, i:integer;

begin

clrscr;

readln (a) ;

s:=0;

for i:=1 to a do

s : = s+i;

writeln (s) ;

end.