//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
Ответ:
3
Объяснение:
9 команд веред ровно 36 единиц
3 команды назад ровно -9единиц
36-9=27
поэтому команд ,,назад 3" должно быть 3
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
<span>end.</span>
Истинный цвет - каждый пиксель весит 24 бита
Объем = кол-во пикселей* глубину цвета=20*20*24 бит=9600 бит=1200 байт=приблизит. 1,17Кбайт
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>