// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
5. I = 4 мб (*1024*1024*8) 4* 2^23 бит
i = 8 бит
q = 44,1 кГц = (*1000) 44100Гц
I = i * q * t
значит t = 4*2^23 : (8 * 44100) = 4*2^20:44100= 2^20 : 11025≈ 190
I=K*i
бит = 98304/8*1024 = 12 Кбайт
Ответ 12 Кбайт
Program cosilka;
const dopvrem=0.6;
var
i:integer;
N:integer;
m:integer;
brigada:real;
begin
writeln('Введите количество сенокосилок:');
readln(N);
writeln('Введите количество часов у первой сенокосилки:');
readln(m);
brigada:=m;
for i:=1 to N do brigada:=brigada+dopvrem;
writeln('Ответ:', brigada:3:1,''часов'':3);
End.