Var i.n:integer;
begin
readln(n);
for i:=1 to n do
writeln(i*i);
end.
Program lol;
var
a: array [1..9] of real;
sum: real;
I: integer;
begin
for I := 1 to 9 do
begin
write('a[', I, '] = ');
readln(a[I]);
sum := sum + a[I];
end;
writeln('Среднее арифметическое введённых чисел = ', sum/9);
end.
//PascalABC.NET 3.1 сборка 1200
const
n = 1000;
begin
var primes := new List<integer>();
for var i := 2 to n do
begin
var f := true;
foreach var prime in primes do
if i mod prime = 0 then begin
f := false;
break;
end;
if f then primes.Add(i);
end;
foreach var prime in primes do
write(prime, ' ');
writeln;
writeln('Время вычисления: ', Milliseconds / 1000);
end.
Ответ:
199кб=203776 байт=1630208 битов
Набрать 3 литровый баллон, перелить в 5 литровый,(там останется место для 2 литров), опять набрать 3 литровый баллон и перелить из него 2 литра в 5 литровый. (В 3 литровом баллоне останется 1 литр)