Решить - это означает вычислить?
Если да, то написать программу из трех операторов.
Первый - begin
Второй - Write(то, что нужно вычислить)
Третий - end.
В вашем случае это будет так:
begin Write(2*(300-277)*3-2*(100-98)/2) end.
В результате получим 136.
1 и 0 = 0
0 или 1 = 1
не 1 = 0
Ответ: 0
<span>Что за устройство, которое предназначенное для воспроизведения </span>видеосигнала<span> и </span>визуального<span> отображения </span>информации<span>, полученной от </span>компьютера<span>.(МОНИТОР)
</span>
Немного неказисто. и без стрелочек. а так норм.
1)ввели a,b,c,d :a=2.5;b=1;c=6;d=0.3
2)s:=(2.5+1+6+0.3)/4=9.8/4=2.45
3)вывели S
Uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(7,i);
write('*');
end;
for i:=1 to 5 do
begin
gotoXY(1+i,7-i);
write('*');
end;
readln;
end.