Var k,n,a:integer;
begin
readln(n, k);
a:=k;
while k<(n/3) do
begin
k:=k+1;
n:=n+1;
end;
writeln(k-a);
end.
Перевести этот код с PascalABC в Python 3

👇

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

Ответ:

lordd007

27.06.2021

Var
X,Y,K:integer;
E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.

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

Ответ:

UltraTwItTeR

27.06.2021

Проверено, работает на Паскаль АВС:

Program rabota_s_massivom;
uses crt;
label metka;
const N=30;
var M: array[1..N] of integer;
i,k,s,kmax,reserve:integer;
begin
for i:=1 to N do
    begin
      write('Введите ',i,'-й элемент: '); readln(M[i]);
    end;
writeln('Массив:');
for i:=1 to N do
    begin
      write(M[i],' ');
    end;
k:=1; {Число элементов в текущей последовательности. Изначально считаем, что последовательность состоит из одного (первого) элемента}
{Ищем первый нечётный элемент:}
repeat
    reserve:=reserve+1;
until (m[reserve] mod 2 = 1) or (reserve = 30);
writeln(reserve);
if (m[reserve] mod 2 = 0) and (reserve = 30) then
begin
    writeln('Все числа чётные. Искомая последовательность не существует');
    goto metka;
end;
s:=M[reserve]; {Сумма элементов текущей последовательности пока что равна первому нечётному элементу}
kmax:=0; {Наибольшая длина последовательности}
for i:=reserve+1 to n do {Перебираем все элементы, начиная с первого нечётного}
    begin
      if (m[i] mod 2 = 1)
        then {Если текущее число всё ещё нечетно}
          begin
            s:=s+m[i]; {Увеличиваем сумму последовательности}
            k:=k+1 {Увеличиваем счётчик длины последовательности}
          end
        else {Если встретилось четное число}
          begin
            if k>kmax then {Проверяем, не является ли полученная последовательность длиннее нашего максимума}
              begin {Если да:}
                kmax:=k; {Запоминаем новую длину последовательности}
                reserve:=s {Запоминаем сумму её элементов}
              end;
            k:=0; {Устанавливаем длину новой последовательности равной 0}
            s:=0 {Сумма элементов этой последовательности тоже пока что = 0}
          end;
    end;
if k>kmax then {Если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум}
    begin
      kmax:=k;
      reserve:=s
    end;
writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов');
writeln('и сумма этой последовательности равна ',reserve);
metka: end.

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

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

Дом-и-сад

08.03.2021

Как самостоятельно заасфальтировать подъездную дорожку: пошаговая инструкция...

31.01.2021

Как бороться со стрессом с помощью еды...

Хобби-и-рукоделие

20.02.2022

Как просто и быстро сделать стильные шорты из старых джинсов: 5 шагов к идеальному летнему гардеробу...

Мир-работы

27.04.2021