(вроде так)
Var mesyac:integer;
begin
writeln('введите номер месяца');
readln(mesyac);
if mesyac = 12 or 1 or 2 then
writeln ('зима');
if mesyac = 3 or 4 or 5 then
writeln ('весна');
if mesyac = 6 or 7 or 8 then
writeln ('лето');
if mesyac = 9 or 10 or 11 then
writeln ('осень')
else writeln('ошибка, не правильно введен месяц');
end.
Проверено в турбопаскаль 7
var ost,n:longint;
i,kvadrat, udvsumma:integer;
numbers:array[1..10] of integer;
begin
writeln('-------------------------------------');
write('input n:');
readln(n);
writeln('vi vveli:',n);
ost:=n;
i:=0;
while (ost>0) do
begin
i:=i+1;
numbers[i]:=ost mod 10;
ost:=ost div 10;
end;
if(i<3) then
begin
writeln('Obman!!! Nado vvesti minimum 3 znaka chislo');
end
else
begin
kvadrat:=numbers[i]*numbers[i];
udvsumma:=2*(numbers[1]+numbers[2]);
writeln('kvadrat pervogo=', kvadrat);
writeln('udvoennaya summa poslednih=', udvsumma);
if(udvsumma<kvadrat) then
writeln('Vse verno, udvoennaya summa menshe')
else
writeln('ne verno, udvoennaya summa ne menshe');
end;
writeln('press enter');
readln;
end.
Примеры сделаны в Екселе, потому названия ячеек другие
Требуется найти значение ячейки A3
Для вычисления значения ячейки C2 составим систему
C2-1 + C2-4 + 2 = Summ (главная диагональ)
4 + C2 + 2 = Summ (столбец С)
C2-1 + C2-4 + 2 = 4 + C2 + 2
Откуда С2 = 9
Summ = 4 + 9 + 2 = 15
Первый рисунок - формулы для вычисления значений ячеек
Желтая ячейка называется - Summ
Второй рисунок с результатами, подставляем С2 = 9
A3 = 6