<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a,d,k):=ReadReal3('Введите a, d, k');
for var i:=0 to Trunc((d-a)/k) do
begin
var x:=a+i*k;
var y:=x**3+4*Abs(x);
Writeln(x:30:15,y:30:15)
end
end.
алг
нач цел б,ср=0, цел таб а[1:20]
нц
для б от 1 до 20
а[б]:=int(rnd(20))
ср:=ср+а[б]
кц
вывод (ср/20)
<span>кон</span>
Program wtf;
var a,b,c,S:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
S:=a+b+c;
writeln('Сумма цифр= ',S);
end.
Существует 9 различных путей:
ACF
AEF
ADF
ABDF
AECF
ADEF
ADECF
ABDEF
ABDECF
Команда x:=4 присваивает переменной x значение 4