Var a,b,c,d,k,f,flag: integer;
begin
readln(a,b,c,d);
repeat
K:=k+1;
Case k of
1: f:=b;
2: f:=c;
3: f:=d;
end;
If a<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
1) 30*16=480 - это одна строка
2) 480*40= 19200 это одна страница
3) Переводишь биты в мегабайты 19200 бит это 0,0023 мбайт
4) Делишь 700 на 0,0023, Это где то 304347,8
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
Именем массива или переменной может служить любой набор символов, не совпадающий со служебными словами языка Паскаль.
Имена должны начинаться с буквы или символа подчеркивания, могут содержать цифры. Буквы - только латинские (английские).