1. 80000 бит
2. 1 920 000 бит
3. 1,5 мегабайт
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
Немного неказисто. и без стрелочек. а так норм.
1)ввели a,b,c,d :a=2.5;b=1;c=6;d=0.3
2)s:=(2.5+1+6+0.3)/4=9.8/4=2.45
3)вывели S
5 записей
нужно на найти строку в которой Категория скорый и время в пути меньше 40 одновременно