Регистрация
inessa30
06.07.2022 07:11
Информатика
Есть ответ 👍

, много , суммативная информатика 8 класс 4 задания ​

105
125
Посмотреть ответы 1

Ответы на вопрос:

олеся14111
олеся14111
4,6(94 оценок)

var n,k:integer;

begin

repeat

write('Введите количество не больных школьников от 401 до 800 n=');

readln(n);

until(n>400)and(n<=800);

k:=0;

while n>400 do

begin

 n:=round(n*0.9);

 k:=k+1;

end;

write('Через ',k,' дн. ',' количество учащихся составит менее половины = ',n);

end.

взял отсюда: https://studassistent.ru/pascal-abc/opredelit-cherez-skolko-dnej-chislo-poseshhayushhikh-shkolu-sostavit-menee-poloviny-uchashhikhsya-shkoly-pascal-abc

Популярно: Информатика