Поставить знак конъюнкции или дизъюнкции вместо знака «? » (если это возможно), чтобы логическое выражение при любых значениях а и в всегда принимала значение «истина» (в v в) ? (а л а)
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).
1.
var s: string;
begin
write('Введите слово: ');
readln(s);
while (s<>'хватит') do
begin
writeln(s+'!');
write('Введите слово: ');
readln(s);
end;
writeln('До следующих встреч');
end.
2.
var i,n,max,min: integer;
begin
randomize();
n:=random(201)-100;
max:=n;
min:=n;
write(n,' ');
For i:= 2 to 20 do
begin
n:=random(201)-100;
write(n,' ');
if (n>max) then max:=n;
if (n<min) then min:=n;
end;
writeln('Наибольшее число: ',max);
writeln('Наименьшее число: ',min);
end.