-7у = 1/2х
у = -7 * 1/2х
у = -1/14х
Вообще это график функции
1.
var p,a,k,pr:integer;
begin
write('p = '); readln(p);
a:=1; k:=1; pr:=1;
repeat
a:=a+2;
k:=k+1;
pr:=pr*a;
until pr=p;
writeln('k = ',k);
end.
Пример:
p = 945
k = 5
2.var a,s,k:integer;
begin
s:=0; k:=0;
write('a = '); readln(a);
repeat
s:=s+a;
k:=k+1;
write('a = '); readln(a);
until a=0;
writeln('s = ',s,' sr = ',s/k);
end.
Пример:
a = 2
a = 4
a = 3
a = 1
a = 5
a = 0
s = 15 sr = 3
Принтер, сканер, мышь. - дополнительные устройства. Клавиатура - обязательное
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
371-563 8
371-173 16
A3E16-2622 10
1.237 10 - 1,00111100101011 2
2.472 10 - 10,01111000110101 2