Задачи
4.57
4.58
4.60
выполняются последовательно
но можно разбить на 3 программы
Программа А6 в файле
Program XY5;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
1)
var A: array[1..6] of integer = (-125, 200, 10, 6, 43, 11);
2)
6
3)
11
<span>Укажите правильный вариант записи условия «х — двузначное число
(х>=10) И (х<100)
</span>