Var x,y: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=0)and(y>=0)and(y>=-x+3)
then writeln('Да')
else writeln('Нет');
end.
Пример:
<span>x = 3
y = 1
Да</span>
{PascalABC}
var a:integer;
begin
while a<10 do begin
write(a*a,' ');
a:=a+1;
end;
end.
Тут понадобятся две формулы:
1) I = Кi;
2) N = 2^i
Из первой выражаем i, i = I/K = 720/180 = 4 (бит)
Далее значение подставляем во вторую, N = 2^4 = 16.
Значит, мощность алфавита равна 16.
Алг Сумма
нач
цел a
вещ x, step, s
вывод "Введите последнее число: ", нс
ввод a
x := 1
step := 0.1
s := 0
нц пока x <= a+step/2
s := s + x*x
x := x + step
кц
вывод "s = ", s
кон