Задание:
Программирование. Составить программы для решения задачкалькулятор) 1. Дана площадь квадрата. Вычислить периметр этого квадрата 2. Дано натуральное числоХ. Определить, является ли оно четным и делится ли это число на 3
Решение:
1.var a: integer; begin read (a); writeln (sqrt (a)*4); end.2. var x: integer; begin read (x); if (x mod 2=0) then writeln ('Четное') else writeln ('Нечетное'); if (x mod 3=0) then writeln ('Делится на 3') else writeln ('Не делится на 3'); end.
Знаете другой ответ?