СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ нужна Составить программу. Из 800 учащихся школы на данный момент посещают школу N человек. Определить, через сколько дней число посещающих школу составит менее половины учащихся школы, если число не больных школьников каждый день уменьшается на 10% от предыдущего дня.

148

248

Посмотреть ответы 2

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

олеся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

ЯестьПаша

Информатика

4,6(3 оценок)

// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',40); a.println; writeln('кол-во отрицательных: ',a.where(x-> x< 0).count) end. пример n= 15 -1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6 кол-во отрицательных: 9