Любой материальный объект или среда, используемый человеком, способный достаточно длительное время сохранять в своей структуре занесённую на него информацию<span>, без использования дополнительных устройств.</span>
Var
x, y, r: real;
begin
read(x, y, r);
if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
or ((x < 0) and (y < 0) and (x + y >= -r)) then
write('да')
else
write('нет');
end.
В кабинет информатики без учителя не входить.
Не входить в верхней одежде
Без разрешения учителя не садиться и не включать компьютеры.
Посторонии предметы за ПК не брать
По кабинету не бегать.
Нельзя вставать из за компьютера не спросив учителя!!!!
Program www;
var x,s:integer;
begin
read (x);
S:=0;
while x<>0 do
begin
If (x mod 5=0) then S:=S+x;
read (x);
end;
write (S);
End.