Информатика 8 класс

Пример кода на Pascal для выполнения задания:

 program data_list; 

 

type 

  S = record 

    data: integer; 

    next: ^S; 

  end; 

 

var 

  j, i: integer; 

  x, moh: real; 

  head, tail, p: ^S; 

 

begin 

  i := 1; 

  x := 10; 

  j := i + 1; 

  moh := x + 0.1 * x; 

   

  new(head); 

  tail := head; 

  head^.data := j; 

  new(p); 

  p^.data := round(x); 

  tail^.next := p; 

  tail := p; 

   

  if x >= 25 then 

    writeln('Yes') 

  else 

    writeln('No'); 

   

  writeln('Head data: ', head^.data); 

  writeln('Tail data: ', tail^.data); 

   

  readln; 

end. 

В данном примере создается список данных, состоящий из двух элементов. Значение первого элемента (j) задается переменной i, а значение второго элемента (округленное значение x) задается переменной x. Затем создается новый элемент списка (p), который содержит значение второго элемента, и он добавляется в конец списка. Если значение x больше или равно 25, то на экран выводится "Yes", иначе - "No". Наконец, на экран выводятся значения первого и последнего элементов списка.

PascalABC
var i, x : real;
begin
i := 1;
x := 10;
While (X<25) do
begin
i := i + 1;
x := x + 0.1*x;
end;
WriteLn (' i = ', i);
end.

Так вот правильно:

 var i: integer = 1; x: real = 10; 

begin repeat i := i + 1; x := x * 1.1 

until x >= 25; writeln(i) end. 

Или так:

 var i: integer; x: real; 

begin 

  i := 1; 

  x := 10; 

  while x < 25 do 

    begin 

      i := i + 1; 

      x := x * 1.1

    end; 

  writeln(i) 

end.