===== PascalABC.NET =====
begin
var d := 0;
while True do
if ReadlnReal >= 22 then break
else d += 1;
Print( d div 7)
end.
120n (руб) - стоимость всего мороженого
3800к (руб) - стоимость всего шоколада
120n + 3200k (руб) - потратил мальчик на всю покупку
Program pr1;
Uses Crt;
Var
x,m:real;
Begin
ClrScr;
write('Введите скорость скачивания:');
readln(x);
m:=round(0.3*60*x*0.125);
writeln('Потребуется ',m,' мегабайт');
readln;
end.
Разделение изображения на участки, в пределах которых значения тона либо усредняются, либо представлены одним из значений участка; имеет место при сканировании