<span>sum:=0; for i:=1 to 4 do for j:=1 to 4 do if mass[i,j] < 0 then sum:=sum+mass[i,j];</span>
2*2-(1)
2*2-(1)=3
<span>3*3-(2)=7 </span>
<span>7*4-(3)=25 </span>
<span>25*5-(4)=121 </span>
<span>121*6-(5)=721 </span><span>
както так)))</span>
Пример В)
uses crt;var f,a,b,c:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число B');readln (b);writeln ('Введите число C');readln (c);F:=(sqrt(sqr(b)*2)-4*a*c);writeln('Ответ: ',f:2:1);end.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var mn:=Arr('январь','февраль','март','апрель','май','июнь',
'июль','август','сентябрь','октябрь','ноябрь','декабрь');
var n:=ReadInteger('Номер месяца');
case n of
12,1,2:Write('Зима');
3,4,5:Write('Весна');
6,7,8:Write('Лето');
9,10,11:Write('Осень');
else begin
Writeln('Неверный номер');
exit
end
end;
Writeln(', ',mn[n-1],', предшествующий ',n=1?mn[11]:mn[n-2],
', следующий ',n=12?mn[0]:mn[n])
end.
<u>Пример</u>
Номер месяца 2
Зима, февраль, предшествующий январь, следующий март
