Var x,y:real;
begin
readln(x,y);
if (x>0) and (x*x + y*y>=1) and (x*x + y*y<=2) then
writeln('yes')
else writeln('no');
end.
//Pascal:
program cosinusi;
var i: real;
begin
i:= 0;
while(true)
do begin
if(i <= 7,770)
then writeln("Cos(", i, ") = ", sqr(cos(i)):0:2)
else exit;
i:= i + 0,1;
end;
end.
A:=3 - записать переменной а значение 3
b:=4 - записать переменной b значение 4
a:=a+b - сложить значение переменной а со значением переменной b, записать результат в переменную а
После выполнения этого кода будет а=7 b=4
Doc3.txt по сути, если это файл документа. Но если вывести каталог этого файла то нужна команда dir doc3
Если нужно, как в моем комментарии, то
Program summer;
var a, b, c: real;
Begin
Readln (a,b) ;
c:=a+b;
write (c);
<span>
End.</span>