Укажите, сколько раз будет выполнен цикл for i :=-1 to 2 do a:=a+1;
а) 2
б)бесконечно
в)0
г)3
д)4

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

если выполнить для стандартного алфавита с ё, й итд

получится

а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17

р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33

слово компьютер

к=12 -8=4 (д)

о=16-5=11(й)

м=14+1=15(н)

п=17+8=25(ч)

ь=30-23=7(ё)

ю=32-13=19(с)

тер (не меняем)

дйнчёстер

но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"

пусть х лет мальчику, тогда

(х+2)/(х-2)=2

х+2=2(х-2)

х+2=2х-4

х=6лет мальчику

пусть у лет девочке, тогда

(у+3)/(у-3)=3

у+3=3(у-3)

у+3=3у-9

2у=12

у=6 лет девочке

ответ : мальчик и девочка одного возраста

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.