Ответ:Аскар определит задуманное число за 3 попытки.
Объяснение:
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
Var n:integer;
procedure del(x:integer);
var d:integer;
begin
d:=2;
if(x>1)then begin
while x mod d<>0 do d:=d+1;
if(x div d >1)then write(d,'*')
else write(d);
del(x div d)
end
else exit;
end;
begin
read(n);
write(n, ' = ');
if(n<2) then write(n)
else del(n);
end.
#include <iostream>
<span>using namespace std;
</span>int main() {
<span> int a,b;
</span><span> float sr=0;
</span><span> cout<<"a = "; cin>>a;
</span><span> cout<<"b = "; cin>>b;
</span><span> for (int i=a; i<=b; i++) sr+=i;
</span><span> sr=sr/(b-a+1);
</span><span> cout<<sr<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span><span>
</span>