Ответ:
1)
а) логическое выражение:
(a=b) AND (b=c)
б) логическое выражение:
c=(a+b)/2
в) логическое выражение:
(N div 1000)+((N mod 1000) div 100)+((N mod 100) div 10)+(N mod 10)>(N div 1000)*((N mod 1000) div 100)*((N mod 100) div 10)*(N mod 10)+1
2)
var x, y: real;
b:boolean;
begin
readln(x,y);
b:=(x>=0) AND (y>=0) AND (y+x>=1) AND (x*x+y*y<=2*2);
writeln(b);
end.
Єто панель инструментов её можно стереть полностю!!! нажав ПКМ
1. В языке семейства С/С++ есть <u>функция sqr, вычисляющая квадрат</u>. Но в этих языках важен регистр, поэтому запись Sqr некорректна. Да и операция & в этих языках означает взятие адреса, что тут никак не годится.
2.<u>Sqr в языке Паскаль</u> также означает <u>возведение в квадрат</u>. Но в Паскале нет знака операции &
3. А еще SQR есть <u>в BASIC</u> (регистр там неважен, можно и Sqr написать), и это <u>функция извлечения квадратного корня.</u> В BASIC операция & - это конкатенация (объединение) строк. Применение к числовым данным вызывает их предварительное преобразование к строкам.
Итог: Sqr(196) & Sqr(9) в BASIC означает SQR(169) & SQR(9) и вернет строковое значение "133" в VBA, но в MS DOS QBasic вызовет переполнение.
Var num:integer;
begin
writeln('0 - выход');
repeat
write('Введите число: ');
readln(num);
if(((num mod 11) = 0) or ((num mod 17) = 0)) then writeln('Это число делится на 11 или 17')
else writeln('Это число не делится ни на 11, ни на 17');
until num = 0;
end.
Флеш-накопитель<span> </span><span>компакт-диск </span>жесткий диск