Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Var n, i, sum, kol, age :integer; sr :real;
begin
sum:= 0; kol:= 0; readln(n); for i:= 1 to n do begin readln(age); sum:= sum + age; inc(kol); end; sr:= sum/kol; writeln(sr);
<span>end.</span>
Это что за шифр?log без параметров не используется
Смотри во вложенном pdf-документе.
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.