Программирование. составить программы для решения : (калькулятор) 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.
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.