Выясни, какое минимальное значение числа d следует ввести, чтобы после выполнения программы было напечатан 150. var n, s,d: integer;
begin
readln (d);
n:=3; s:=38;
while s<=1200 do
begin
s:= s+d;
n:=n+7;
end;
write (n);
end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

периметр треугольника равняется сумме длин всех трех его сторон. он вычисляется по формуле p=a+b+c, в которой a, b и c – это стороны фигуры.

бухгалтерия, документооборот.