Пароль, число, шифр, номер, количество чего-либо.
Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
В коде программы допущен ряд ошибок, верный код вот:
program PRIMER;
var X, Y: INTEGER;
begin for X := 1 TO 3 DO begin Y := 6 DIV (X) + 4; WRITELN('ОТВЕТ ЗАДАЧИ=', Y); end;end.
Результат работы программы:
ОТВЕТ ЗАДАЧИ=10ОТВЕТ ЗАДАЧИ=7ОТВЕТ ЗАДАЧИ=6
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108