1. Написать программу нахождения суммы чисел от 1 до 24. 2 написать программу печати трех чисел, выведенных с клавиатуры, в порядке возрастания

Question

Мирослава Анисимова

Информатика

2 февраля, 04:17

1. Написать программу нахождения суммы чисел от 1 до 24. 2 написать программу печати трех чисел, выведенных с клавиатуры, в порядке возрастания

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Мирон Попов · Answer 1

1. var

i, sum, n: integer;

begin

sum: = 0;

n:=24;

for i:=1 to 24 do

sum: = sum + i;

writeln (sum);

end.

2. var

a, b, c: integer;

begin

readln (a, b, c);

if (a>b) and (a
if (ac) and (c
if (a
if (a
if (a>b) and (ab) then writeln (b, a, c);

if (a>b) and (a>c) and (c>b) then writeln (b, c, a);

end.