Урок 14.1 Задача 4
Primary tabs
Напишите процедуру, которая получает на вход три целых числа и выводит на экран их сумму.
var x, y, z: integer; procedure sum(a, b, c: integer); // процедура принимает три целых числа begin write('Ответ: '); write(a + b + c); // процедура выводит сумму end; begin writeln('Введите три числа: '); readln (x, y, z); sum(x, y, z); // передаем в процедуру три целых числа readln (); end.
Вывод в консоли:
Введите три числа:
7
4
1
Ответ: 12
- Log in to post comments
- 695 reads
vedro-compota
Wed, 11/09/2022 - 18:50
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)