Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
1 задача) 44000*16*60*2=10Мб
а для второй задачи я использовала ту же частоту и дискретизацию.
700Мб=5872025600 бит
t=5872025600/(44000*16*2)=4170 сек= 1час 9.5 мин
program raf105;
var x,y,day:real;
begin
write('Сколько спортсмен пробежал в первый день (X): ');
readln(x);
write('Сколько километров он хочет пробежать за день (Y): ');
readln(y);
day:=1;
while x<y do
begin
x:= x+x/100*15;
day:= day+1;
end;
writeln('Спортсмен выполнит цель за ',day,' дн. тренировок');
end.
<em>Программа написана на языке PascalABC</em>
В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)