Var a:integer;
<span>begin </span>
<span>writeln('Введите сторону куба'); </span>
<span>readln(a); </span>
<span>writeln('Объем куба с ребром ',a,' равен — ',a*a*a); </span>
<span>writeln('Площадь поверхности куба равна — ', 6*a*a); </span>
<span>end. </span>
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
<span>end. </span>
{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла
var
input: text;
n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do
begin
read (input, n1);
inc (sum, n1);
end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.
{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then readln(input);
end;
close (input);
write ('Символов в файле: ', n);
end.
{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n, i: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then
begin
readln(input);
inc (i);
writeln ('Символов в ', i, ' строке: ', n);
n:=0;
end;
end;
close (input);
end.
Ответ: d)
Объяснение: Можно, поскольку в условии соблюдены минимальные требования, необходимые для общения.
Принимаем первое число. проверяем на ><0 если больше, выводим квадрат етого числа.Эту функцию выпоняем необходимое кол-во раз(3 в данном случае)
