//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 9 do
writeln(i,'*5=',i*5);
end.
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
227 бит = 227 / 8 / 1024 / 1024 Мбайт = 0.0000270605 <span>Мбайт </span>
var
n,m,i:integer;
begin
write('Введие вес мальчика: ');
readln(n);
write('Введите массу конфет (кг): ');
readln(m);
i:=0;
while n+n-5<>m do
begin
i:=i+1;
m:=m-1;
end;
writeln('Детям необходимо сьесть ',i,' кг конфет');
end.