<span>Var s:string; i:integer; </span>
<span>Begin </span>
<span>Readln(s); i:=length(s); </span>
<span>while (i>0) and (s [ i]=' ') do i:=i-1; </span>
<span>if i=0 then Writeln('слова в строке не обнаружены') </span>
<span>else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); </span>
<span>End. </span>
V1=y*t*k*b
V1=60*22*8*1=10560 bit
V2=44*60*16*1=42240 bit
ответ в битах
ну буквы Вы не написали, поэому задание полностью выполнить не получится. Но Вы можете сами записать буквы, по представленному адресу: <u>http:\\doc.com\print.doc</u>
Ось:
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a) else
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b) else
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
readln;
<span>end.
Не дуже розумію, навіщо ви написали рядок:"</span><span>writeln(maxlongint);</span>". Чи це залишилося від перевірки числового інтервалу даного типу?
Я думаю Г, так как первый ответ 20 в любом случае, а в integer максимальное число содержит не более 20 символов