• Предмет: Информатика
  • Автор: aaaaaaapomogite
  • Вопрос задан 8 лет назад

помогите пожалуйста. СОР информатиеа 8 класс

Приложения:

Ответы

Ответ дал: lox4447
0
напишу на паскале

var a:longint;
begin
read(a);
a:= a div 5;
writeln(a*4);
end.
Ответ дал: aaaaaaapomogite
0
если не ошибаюсь, то мне нужен С++
Ответ дал: fedrfedr
0
нет, это не С++, а Pascal
Ответ дал: aaaaaaapomogite
0
я поняла, а выполнение этого задания возможно на С++
Ответ дал: fedrfedr
0
C++ у меня не установлен на компьютере. Требуемый язык программирования лучше сразу писать в тексте задания.
Ответ дал: aaaaaaapomogite
0
ладненько, и на этом спасибо
Ответ дал: fedrfedr
0

var

 n, k, a, i: Integer;

begin

   Write ('Введите первоначальное количество клеток грибов: ');

   Readln (k);

   Write ('Введите количество минут: ');

   Readln (n);

   a := n div 5;             // вычислить количество целых пятиминуток

   for i := 1 to a do begin  // цикл выполняющийся столько раз, сколько пятиминуток

     k := k * 4;             // деление клеток - увеличение в 4 раза

   end;

   WriteLn ('Конечное количество клеток = ' + IntToStr (k));

end;

Вас заинтересует