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

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

Пример:

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

28 15 10

Величайшее число: 28

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

Пример:

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

100

Сумма = 500

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

Задать свой вопрос
1 ответ
1 задачка.
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if agt;=b and agt;=c then writeln(a) else
if bgt;=a and b gt;= 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт