Var p,i, n:integer;
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
<span>end.
</span>
Канал -а, мышка, тенор-д, логика -а, сервер-в, килобайт -з, графика -е, алфавит -ж
С=12; A=10;
12 * 16(четвёртой степени) + 2 * 16(третьей степени) + 10 * 16 (в квадрате) + 1 * 16(первой степени) + 6 * 16(нулевой степени)
12 * 65536 + 4096 *2 + 256 * 10 + 16 + 6 = 786432 + 8192 + 2560 +22 = 797206
Ответ : 797206
#include <iostream>
int main (){ int pow = 0, n; std::cin>>n; for (int i = 1; pow<n*n; i+=2) { pow+=i; } std::cout<<pow;}
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)
else
if x>3 then Writeln('y=',x*x);
end.
Пример:
Введите x-> 2
y=6
2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)
else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)
else Writeln('y=',x*x*x:0:2);
end.
Пример:
Введите x-> 5
y=125.00