Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n div 100 * 10) + n mod 10;
writeln('m = ',m);
end.
Пример:
n = 672
m = 62
Var x,y:real;
begin
readln(x,y);
if (x>0) and (x*x + y*y>=1) and (x*x + y*y<=2) then
writeln('yes')
else writeln('no');
end.
<span>b. на слово, в котором находится курсор</span>
ЗАДАНИЕ: Составить таблицу истинности....
Рассматриваем каждую комбинацию А, В и С и вычисляем F (как в следующей задаче).
ЗАДАНИЕ: Найти значение ....
Проходим по схеме с заданными значениями А, В и С (смотрим рисунок)