1) ftp://com.ru/htm.txt
2) http://www.ftp.ru/index.html
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Write((y >= 0) and (y <= 4 - abs(x)))
end.
Тестовое решение:
Введите через пробел координаты точки (x,y): 1 3.1
False
Введите через пробел координаты точки (x,y): -1 2.9
True
var i:integer;
p:int64;
begin
p:=1;
for i:=1 to 100 do if i mod 10 = 5 then p:=p*i;
writeln(p);
end.
На самом деле решается легко:
100 - 5 * 10;
100 - 50 = 50;
ответ: 50