Var
x,prod1,prod2,ost:real;
begin
Write('Привезено картофеля, кг: ');
Read(x);
prod1:=x*1/4; { продано в первый день }
ost:=x-prod1; { остаток от продажи }
prod2:=ost*2/5; { продано во второй день }
ost:=x-(prod1+prod2);
Writeln('Оcталось продать, кг: ',ost)
end.
<u>Примеры</u>
Привезено картофеля, кг: 2540
Оcталось продать, кг: 1143
Привезено картофеля, кг: 743
Оcталось продать, кг: 334.35
Краткая биография:Лебедев — основоположник вычислительной техники в СССР, директор ИТМиВТ, академик АН СССР (1953) и АН УССР (12.02.1945), Герой Социалистического Труда. Лауреат Сталинской премии третьей степени, Ленинской премии и Государственной премии
1 Кбайт = 1024 байта
1/2 Кбайта = 512 байт
В каждом байте 8 бит => 512 байт = 512 * 8 = 4096 бит
Правильный ответ 7. Алгоритм считает сколько исполнителей набрали меньше 25 голосов. Это 1-й,2-й,3-й,5-й,6-й,8-й,9-й всего таких - 7