Задание:
1. Написать программу нахождения суммы чисел от 1 до 24. 2 написать программу печати трех чисел, выведенных с клавиатуры, в порядкевозрастания
Решение:
1) var i, s: integer; begin for i: =1 to 24 do s: =s+i; writeln (s); end. 2) var a, b, c: integer; procedure swap (var a, b: integer); var k: integer; begin k: =a; a: =b; b: =k; end; begin readln (a, b, c); if a > b then swap (a, b); if a > c then swap (a, c); if b > c then swap (b, c); writeln (a, ', b, ', c); end.
Знаете другой ответ?