<span>а) Ученик отвечает у доски. </span>
<span>б) Боря читает статью в журнале. </span>
<span>в) Оля слушает песню по радио. </span>
<span>г) Гена говорит с мамой по телефону. </span>
<span>д) Водитель автобуса объявляет остановку.</span>
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
if x>0 then Writeln('y=',x*(x+2))
else
if x<0 then Writeln('y=',x*(2*x-0.5))
else Writeln('Функция y(x) не определена при х=0')
end.