На с Родители разрешили мальчику Косте выбрать себе игрушку. Костя идет вдоль полки, на которой стоят наборы солдатиков. При том в первом наборе X солдатиков, во втором X+1, в третьем X+2 и так далее. Каждый раз, видя более крупный набор, Костя восклицает: "I want this set with X soldiers!". Напишите программу, выводящую восклицания Кости на отдельных строках, если известно, что в последнем наборе на полке Z солдатиков.

у = ах2 – b для х изменяющегося от –7 до +12 с шагом +1.Значения а и b ввести с клавиатуры.Решить эту задачу с использованием всехвидов циклов (FOR, WHILE, REPEAT)}var a,b,x,y:integer;beginwriteln('привет,я alconafft');writeln('введи заначения перeменных а и б');writeln('введи значение а');readln(a);writeln('введи значение b');readln(b);writeln('хорошо,теперь протабулируем ф-цию на заданном отрезке,поехали))');for x:=-7 to 12 do//парметрический циклbeginy:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);end;writeln('цикл с постусловием');x:=-7;repeatinc(x);y:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);until(x=12);x:=-7;writeln('цикл с предусловием');while x<12 dobegininc(x);y:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);end;end.

Подробнее - на -

program raf105;

var a:array[1..3,1..3] of integer;

i,j,x:integer;

begin

writeln('Введите 9 чисел по очереди');

x:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] < 0) and (a[i,j] > -14)

     then x *= a[i,j];

end;

writeln('Вывод: ',x);

end.

program raf105;

var a:array[1..10] of integer;

n,i,x:integer;

begin

writeln('Вводите 10 чисел по очереди: ');

x:= 1;

for i:=1 to 10 do

begin

 readln(a[i]);

 if ((a[i] mod 5) = 0) and (a[i] <> 0)

   then x *= a[i];

end;

writeln('Введите число от 1 до 10');

readln(n);

a[n] := x;

writeln(n,'-й элемент массива заменён на число ',x);

for i:=1 to 10 do

 writeln(a[i]);

end.

Язык PascalABC