1)
var
n,m:longint;
mem:double;
begin
write(Введите минуты и секунды песни: );readln(n,m);
mem:=(n*60+m)*16/1024;
if(mem>6)then writeln(Не хватает: ,6-mem, МБ)
else writeln(Места хватает);
end.
2)
var
dl:double;
x:longint;
begin
write(Введите расстояние: );readln(x);
x:=x*100000;
dl:=80*3.14;
if(x/dl>200000)then writeln(Не доедет)
else writeln(Доедет);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.