Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон
Ответ:
Объяснение:
Файловая система: состоит из физического носителя памяти верху, каталогов, подкаталогов и файлов
Системы уравнений состоят из уравнений, переменных и постоянных
Система счисления состоит из цифр и способа их отображения-в виде цифр, знаков, букв, узелков...
1)
uses crt;
var chislo,summa,proiz:integer;
begin
clrscr;
Readln(chislo);
summa:=(chislo div 10) + (chislo mod 10);
proiz:=(chislo div 10) * (chislo mod 10);
Writeln('<span>сумма:',summa:6:2);
</span>Writeln('<span>произведения </span>:',proiz:6:2);
end.
2)
var chislo:integer;
begin
Readln(chislo);
chislo:=(chislo div 10)+(chislo mod 10)*10;
Writeln(chislo);
end.
15)program 15;
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.