MASM 6.14 Дана непустая последовательность символов (отличных от точки), за которой следует точка. Напечатать эту же последовательность: удалив все лишние пробелы (т. е. из нескольких подряд идущих пробелов оставить только один)
В каталоге уровень "вверх" означает движение к корневому каталогу, "вниз - от корневого. Обозначим движение "вверх" через уровень+1, "вниз" - через уровень-1. Получаем смещение относительно исходного уровня, равное +1-1-1-1=-2. Если в результате пользователь оказался в каталоге C:\учеба\информатика \ ГИА, то изначально он должен был находиться на два уровня выше, т.е. в каталоге C:\учеба К сожалению, такого варианта в ответах нет, следовательно, либо неверно условие, либо ошибка в вариантах ответов.
var x, F: real; begin write('Введите х: '); readln(x); if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x) else F := 4; writeln('F = ', F); end.
№2
var x, F: real; begin write('Введите х: '); readln(x); if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x) else F := 1; writeln('F = ', F); end.
№3
var a,b,c: real; begin write('Введите а: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c); if ( a < b ) AND ( b < c ) then writeln('a < b < c') else if ( b > a ) AND ( a > c ) then writeln('b > a > c') else writeln('Неравенства не выполняются'); end.
Если в результате пользователь оказался в каталоге C:\учеба\информатика \ ГИА, то изначально он должен был находиться на два уровня выше, т.е. в каталоге C:\учеба
К сожалению, такого варианта в ответах нет, следовательно, либо неверно условие, либо ошибка в вариантах ответов.
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.
№2
var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.
№3
var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.