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

1.сколько двоек содержит десятичное число 89,записанное в системе счисления с основанием 3.89 = 81 + 2*3 + 2 = 1*3^4 + 0*3^3 + 0*3^2 + 2*3 + 2 = 10022(3)две двойки2.запишите десятичное число 63 в системесчисления с основанием 7.63 = 49 + 14 = 7^2 + 2*7 = 120(7)3.определить старшую цифру системы счисления соснованием 20.старшая цифра в любой системе на 1 меньше основания. то есть 19.если переводить в буквы, то a=10, b=11, c=12, d=13, e=14, f=15, g=16, h=17, i=18, j=194.вычислить  1da15 + 4349 -> 9учитесь ставить в скобки основание системы! 1da(15) + 434(9) = 15^2+13*15+10+4*9^2+3*9+4 = 785 = 1062(9)5.какому десятичному числу соответствует число  12228221111112223 а это число в какой системе записано? если в 3-ной, то там 8 не может быть.

Var   i, n, k: integer;   s, c: string; begin   writeln('введите текст');   readln(s);   n : = length(s);   k : = 0;   i : = n;   repeat       c : = copy(s, i, 1);       if (c = 'к') or (c = 'к') then k : = k + 1;       i : = i - 1;   until c = ' ';   writeln('в последнем слове буква "k" встречается ', k, ' раз(а)') end. результат прогона тестового примера в pascalabc.net: введите текст кукушка кукует, а петух - кукарекает! в последнем слове буква "k" встречается 3 раз(а)