Если это паскаль
диапазон вводится с клавиатуры
program pr1;
var a,b,x:integer; p:longint;
begin
writeLn('введите диапазон'); read(a,b);
x:=a;
while (x div 10)=0 do
inc(x);
p:=x;
inc(x);
while x<=b do
begin
p:=p*x;
inc(x);
end;
writeLn('p=',p);
<span>end.</span>
1)7+11=18(у)- в кружках
2)27-18=9(у)- не Где не занимаются
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
<u><em>Тестовое решение:</em></u>
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
Логическое выражение: ¬(a∧b∧¬c)
Его можно также привести к другому виду:
Таблица истинности приведена во вложении.