Var a,b,c:real;
begin
writeln('Введите значения A,B:');
readln(a,b);
c:=a+b;
writeln('Ответ:',c:4:2);
end.
<em>1. Современное решение</em>
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Примеры</u>
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
<em>2. "Школьный древний вариант"</em>
<em>// Free Pascal 3.0.0</em>
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if n>20 then
Writeln('Слишком большое n, допустимо 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
<u>Примеры</u>
n= 20
20! = 2432902008176640000
n= 43
Слишком большое n, допустимо 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672
Примерно 50 кб если не верно извеняи
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН
N=3 (три цвета прожектора)
i=4 (прожекторы)
A= N^i
A=3^4=81
