Дано три числа. Программа сравнивает их между собой и выводит результат в упорядоченном по возрастанию - id1068124520200620 от smoboine 20.06.2020 21:55

Question

Информатика: Дано три числа. Программа сравнивает их между собой и выводит результат в упорядоченном по возрастанию виде. (Например: вводятся числа 4, 7, 2 то программа выводит сообщения: 2 4 7) решить в пайтоне

smoboine · Accepted Answer

Var
    i, s1, s2, s3, s4, n: integer;

begin
    write('n = ');
    readln(n);
    s1 := 0;
    s2 := 0;
    s3 := 0;
    s4 := 0;

    for i := 1 to n do
    begin
        s1 := s1 + i;
        s2 := s2 + sqr(i);
        if i mod 2 = 0 then s3 := s3 + i;
    end;

    for i := 10 to 99 do s4 := s4 + i;

    writeln('Сумма первых n натуральных чисел: ', s1);
    writeln('Сумма квадратов первых n натуральных чисел: ', s2);
    writeln('Сумма всех четных чисел: ', s3);
    writeln('Сумма всех двухзначных чисел: ', s4);
end.

MOGZ ответил