<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var (x,y,z):=ReadReal3('Введите x,y,z');
var a:=(x+y-z)/(x*x+2);
Writeln(a)
end.
<u>№2</u>
begin
var (s,n):=ReadInteger2('Введите S,N:');
s*=1000; // перевод в граммы
Writeln('Будет заполнено коробок: ',s div n);
Writeln('В незаполненной коробке останется вес, г: ', s mod n)
end.
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
https://pastebin.com/jXqipRqF
Только в конце вместо (4,2) должно бить (5,3), но это только пример роботи. А так все норм работает. Язык - питон
нужно вставить круг под буквой Б.
Var c, ans, n, a, i, sum:integer;
begin
read(n);
read(c);
for i = 1 to n do
begin
read(a);
sum := sum+a;
if (sum >= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.