Var
<span> d1, v1: integer; </span>
<span> d2, p2, v2, w: integer; </span>
t1, t2: real;
<span>begin </span>
<span> readln(d1,v1); </span>
<span> readln(d2,p2,v2,w); </span>
<span> t1:= d1 / v1; </span>
t2:= (d2 - p2) / v2 + (p2 / w);
<span> if (t1 < t2) then </span>
<span> write('1') </span>
<span> else if (t2 < t1) then </span>
<span> write('2') </span>
<span> else </span>
write('0');
<span>end.</span>
Скорее всего твой ноутбук просто слабый(Скинь в комментарии его характеристики)
А) Людоед,мальчик с пальчик,3 богатыря,Колобок.
Б)Колобок.
В)Дом бабы яги,Дровосек,Страшила,Снегурочка.
Г)Чебурашка,Дом бабы яги,Буратино.
В алфавите
русском: 33 буквы
английском: 26
значит всего: (33 + 26)*2 + 10 + 15 = 143 символа. Значит каждый символ кодируется
битами или одним байтом.
значит весь текст имеет объем:
64*32*100*1 байт = 204800 байт = 200 кБайт
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var a: real; i: integer;begin writeln('Введите курс доллара >> '); readln(a); for i:=1 to 10 do begin writeln(i+'$ = ' + i*a + ' рублей'); end;end.