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

Пример:

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

28 15 10

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

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

Пример:

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

100

Сумма = 500

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

Question

Информатика

Патрикий

25 июня, 22:13

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

Пример:

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

28 15 10

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

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

Пример:

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

100

Сумма = 500

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

+1

Ответы (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.