Красная шапочка часто навещает свою бабушку. но она боится, что рано или поздно ее бабушку опять навестит волк. поэтому она решила договориться с лесничим об охране бабушки. лесничий согласился охранять бабушку за 10 пирожков. узнав об этом, волк сказал красной шапочке, что ей совершенно незачем тратить пирожки на лесничего. за половину тех пирожков, которые красная шапочка несет бабушке, волк пообещал не трогать ее. сегодня (26 ноября) в россии отмечается день матери. мама испекла несколько пирожков, и попросила красную шапочку отнести их бабушке. требуется определить, сколько пирожков красная шапочка сможет донести до бабушки. входные данные вводится одно четное число - количество пирожков, которые испекла мама. выходные данные программа должна вывести одно число - количество пирожков, которые красная шапочка сможет донести до бабушки. ограничения решение будет проверяться на тестовых примерах, в которых число испеченных мамой пирожков - натуральное число, не превосходящее 100. примеры входные данные 12 выходные данные 6 входные данные 100 выходные данные 90

👇

Увидеть ответ

Ответ:

SashaWest

14.06.2021

Какой класс ? скажи

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

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

Ответ:

Hamrod

14.06.2021

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
x, y, a, b, k: integer;

begin
k:=10000;
repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8);
end.

4,4(66 оценок)

Ответ:

Sasha23333000

14.06.2021

//Задание №1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 31;
var a:array[1..m] of integer;
i,s,n:integer;

begin
for i:=1 to m do begin
    a[i]:=random(-20,20);
    if a[i]>0 then begin
      s:=s+a[i];n:=n+1;
    end;
end;
println('Температуры за месяц :'); a.println;
writeln('Средняя в оттепель :',s/n:0:3);
end.

Тестовое решение:
Температуры за месяц :
16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5
Средняя в оттепель :9.000

//Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 10;
var a:array[1..m] of integer;
i,s,n:integer;

begin
for i:=1 to m do begin
    a[i]:=random(-20,20);
    if i mod 2<>0 then s:=s+a[i];
end;
writeln('Исходный массив :'); a.println;
for i:=1 to m do
    if i mod 2=0 then a[i]:=s;
writeln('Сумма на нечетных местах = ',s);
writeln('Изиененный массив :'); a.println;
end.

Тестовое решение:
Исходный массив :
-6 15 5 -11 18 4 17 -9 -15 -16
Сумма на нечетных местах = 19
Изиененный массив :
-6 19 5 19 18 19 17 19 -15 19

4,8(64 оценок)

Это интересно:

Семейная-жизнь

28.05.2021

Как помочь родителям, которые похоронили своего ребенка: советы и рекомендации...

Компьютеры-и-электроника

26.03.2023

Как изменить проверочный номер для кода безопасности iCloud на iPhone...

Здоровье

02.09.2020

Польза и способы приема пчелиной пыльцы...

Компьютеры-и-электроника