<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
1)http://s.idkn.ru/images/original/7/209408/5510467fe8b70e21098ba08c.jpg
Кукушка кукушонку сшила капюшон
2)пв вжф к ухёв пжф
3)комета
4)?
5)?
1 c:=0
for i:=1 to 8 do begin
if a [i]<0 then inc (c);
end;
writeln (c);
2 c:=0
for i:=1 to 8 do begin
c=c+i×i;
end;
writeln (c);
Program G;
Uses Crt;
Var count, num, ch: integer;
Begin
ClrScr;
Writeln('Год високосный? 1 - да, 0 - нет');
Readln(Ch);
If ch=1 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 29 дней');
else writeln('Некорректный ввод данных')
End;
End
Else if ch=0 then
Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
4, 6, 9, 11: writeln('В месяце 30 дней.');
2: writeln('В месяце 28 дней');
else writeln('Некорректный ввод данных')
End;
End
Else writeln('Некорректный ввод данных');
Readln;<span>
End.</span>