profile
Опубликовано 6 лет назад по предмету Информатика от jack47rus

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

 

Пример: 

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

28 15 10

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

 

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

 

Пример:

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

100

Сумма = 500

 

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

  1. Ответ
    Ответ дан Kael
    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.
Самые новые вопросы