Ниже приведён алгоритм. Укажите наименьшее число , при вводе которого алгоритм напечатает число, большее, чем 10300.
var x, d, x0, N: longint;
begin
readln(x);
x0 := x; N := 0;
while x > 0 do
begin
d := x mod 4;
N := 10*N + d;
x := x div 4
end;
N := N + x0;
writeln(N);
end.

👇

Открыть все ответы

Ответ:

papa63428

27.02.2021

//PascalABC.Net 3.0, сборка 1053
const
BMW=1700000;
var
s,x:longint;
n:byte;
begin
Randomize;
n:=0; s:=0;
Writeln('Месяц   Сумма взятки   Накоплено');
while s<BMW do begin
    x:=Random(150001); s:=s+x; Inc(n);
    Writeln(n:4,x:12,s:15)
end;
Writeln('Потребуется месяцев: ',n)
end.

Тестовое решение:
Месяц   Сумма взятки   Накоплено
   1      131598         131598
   2       40502         172100
   3       90384         262484
   4       33945         296429
   5       50956         347385
   6      137449         484834
   7       32050         516884
   8       68439         585323
   9        1187         586510
10       70707         657217
11      145871         803088
12      143780         946868
13       54179        1001047
14       39314        1040361
15       30297        1070658
16       49163        1119821
17       63244        1183065
18      128362        1311427
19       87284        1398711
20       80851        1479562
21       71269        1550831
22      139577        1690408
23       78690        1769098
Потребуется месяцев: 23

4,5(11 оценок)

Ответ:

Usoll

27.02.2021

Задание №1:
int(-5,89)= -5
int(0,53)=0
round(-5,8)=-6
round(5,2)=5
frac(-17,4)=0,4
frac(0,32)=0,32
trunc(-17,4)=-17
trunc(15,2)=15
45 div 4=11
15 mod 8=7
(489 div 10) mod 10=8

Задача №2:

а=1, в=2;    a=2

а=3, в=3;   a=0

а=4, в=2;   a=2

а=-3, в=5   a=-15

Задача №3:

var m,s:integer;
begin
readln(m);
readln(s);
if s>m then writeln('Саша старше Маши')
        else if m>s then writeln('Маша старше Саши ')
              else writeln('Саша и Маша ровесники');
end.

Задача №4:

var a:real;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a/7
        else a:=a*a;
writeln(a);
end.

Задача №5:

var a,b:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then writeln('Наибольшее число: ',a)
        else writeln('Наибольшее число: ',b);
end.

Задача №6:

var a,b,c,p:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
if a>b then if a>c then p:=a
                    else p:=c
       else if b>c then p:=b
                    else p:=c;
writeln('Наибольшее число: ',p);
end.

Задача №7:

var a,b,c,d,p:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
if a>b then if a>c then p:=a
                    else p:=c
       else if b>c then p:=b
                    else p:=c;
if p<d then p:=d;
writeln('Наибольшее число: ',p);
end.

Задача №8:

var a:real;
begin
a:=0;
while a<7.9 do
begin
write('Введите скорость ракеты: ');
readln(a);
if (a>=7.9) and (a<11.2) then writeln('Ракета станет спутником Земли')
    else if (a>=11.2) and (a<16.6) then writeln('Ракета станет спутником Cолнца')
          else if a>=16.6 then writeln('Ракета покинет Cолнечную систему')
                          else writeln('Требуется повторный ввод скорости');
end;
end.