Төменде берілген айнымалылардың қандай мәнде синтаксистік қателер бар? 1. int car =1024, auto = 2048;

2. int ival = ival;

3.int ival (int());

4. double salary = wage = 9999.99;

5. cin >> int input _ value;

люди

1)      а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)      a) readln(а); readln(х);

б) writeln(z)

в)    var b,c : real; (чаще всего используется при нахождении вещественных чисел)

        var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)
3) 

PROGRAM PR1;

var w,s,b: integer;

BEGIN

READLN (S, B);

w:= ((12*s) + (26*b));

WRITELN (W);

end.
4) Запишите на языке Паскаль следующие условия:
а) f >105 ;
б)  a<184  ;
в)  w<>181;  
г)  z>0;
д) z<=d;
е) (y*x)>=(d+w);
ж)  (w-d)<88;
з) f>=1;
5. Запишите на языке Паскаль команду ветвления для решения следующей задачи:

а) if  a<> 21 then a:=a+28 else a:=a-51;
б) if  a mod  2=0 then a:=a+5 else a:=a-12;

6. Запишите на языке Паскаль команду цикла для решения следующей задачи:
а)  PROGRAM PR1;
var j,p: integer;
BEGIN j:=1; p:=0;
While j>=66 do BEGIN p:= p*j; j:=j+1:
WRITELN (‘произведение чисел = ‘, p);
end.
б)  

PROGRAM PR1;

var n:integer;

begin

for n:=1 to 7 do

writeln('trud');

end.

Program Prod15;

var
  p: int64;
  i: integer;

begin
  p := 1;
  for i := 2 to 15 do p := p * i;
  writeln('Произведение целых от 1 до 15 равно ', p)
end.

Тестовое решение:
Произведение целых от 1 до 15 равно 1307674368000

program emax;

const
  n = 20;

var
  i, amax: integer;
  a: array[1..n] of integer;

begin
  amax := -32768;
  writeln('Введите 20 целых чисел');
  for i := 1 to 20 do
  begin
    read(a[i]);
    if amax < a[i] then amax := a[i]
  end;
  writeln('Максимальное из чисел равно ', amax)
end.

Тестовое решение:
Введите 20 целых чисел
-5 12 0 34 26 -77 11 0 34 -23 7 0 -14 -8 34 -15 27 0 -45 23
Максимальное из чисел равно 34