Поставить первую букву п,третью л,четвёртую к
коды.. .
var a,b:char;
begin
writeln('Введите символы');
readln(a,b);
writeln('код 1 числа - ',ord(a));
writeln('код 2 числа - ',ord(b));
if ord(a) < ord(b) then
writeln('a < b')
else if ord(a) > ord(b) then
writeln('b < a')
else writeln('a = b');
readln;
end.
Ответ с момента начала скачивания Васей данных, до полного их получения Петей пройдёт 349346 (секунд).
Var x,y,x1,y1,i:integer;beginfor x1:=2 to 14 do y1:=x1-4;for x:=3 to 17 do y:=2*x+3;writeln(y1);writeln(y);end.
Ну если уж совсем для новичка, то:
1 Мбайт = 1024 Кбайт
1024 / 8 = 128 Кбайт
128 Кбайт переводим в байты
128 * 1024 = 131072 байт
Ответ: 131072 байт или же просто 2^17 степени байт.