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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.