Дана программа: Program Primer; Var A, result : real; Begin Writeln('Введите значения переменной A'); Write('A='); Readln(A); Result := sqr((5+A)*6); Writeln ('sqr((5+A)*6)', result:8:0); Readln; End. Запусти Паскаль, введи данную программу, получи результат, если A=3. (В окошко для ответа запиши только числовое значение!) ответ:

Program Djonny1981;
uses crt;
const
  m=5;
var
  a: array[1..m,1..m] of integer;
  i, j: integer;
  sum: integer;
begin
  randomize;
  sum:=0;
  for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:5);
        end;
        writeln();
    end;
  for i:=1 to m do
    for j:=1 to m do
      if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
         sum := sum + a[i,j];
  writeln('Сумма элементов чётных столбцов равна ',sum);
  if sum>0 then
      for i:=1 to m do
        for j:=1 to m do
          if i mod 2 = 1 then
            a[i,j]:=a[i,j]*a[i,j]
    else
      for i:=1 to m do
        a[m-i+1,i]:=a[m-i+1,i]+2;
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln();
    end;
end.

#include <stdio.h> 
#include <stdlib.h>

int main() 
{ 
   int a,b,c,d1,d2,d=0,n=0;

   srand (time(NULL)); 
   a = rand() % 50 + 1;
   b = rand() % 50 + 1;
   c = rand() % 20 + 1;
   while (c>a) a = rand() % 50 + 1;
   while (c>b) b = rand() % 50 + 1;
   printf ("%d %d %d\n", a, b, c);
   d1 = a; d2 = b;
   while (d1>=c){
    d2 = b;
    while (d2>=c){ n++; d2 -= c; }
    d1 -= c;
    }
   printf("%d\n", n);
   for (int i=0; i<(10-1); i++) d += n;
   d = -d;
   printf("%d", d);
    return 0;
}

Пример:
27 42 4
60
-540