1. Написать программу нахождения суммы чисел…

Question

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

Answer 1

35

a11vik

09 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: