Удачи на ОГЭ) ответ на фото
Var months: array [1..12] of string;
x: integer;
begin
months[1] := 'January';
months[2] := 'February';
months[3] := 'March';
months[4] := 'April';
months[5] := 'May';
months[6] := 'June';
months[7] := 'July';
months[8] := 'August';
months[9] := 'September';
months[10] := 'October';
months[11] := 'November';
months[12] := 'December';
read(x);
if ((x < 1) or (x > 12)) then begin
write('Error!');
end else begin
write(months[x]);
end;
end.
1. a:= 16. b:=12-16/4 = 8 a:=16+8*3 Отсюда следует а = 40
2. a:= -3. a:= -(-3)-(-3) = 6. b:=a+2 = 8 a:= -b+a*b = -8 + (-3)*8 = -8-24= -32
За 5 баллов... вот решение 2-ой задачи
program n2;
var
i, sum: integer;
begin
sum:=0;
for i := 20 to 30 do begin
sum:=sum+i;
end;
writeln('Сумма чисел от 20 до 30 = ', sum);
end.