Массив нужно заполнить именно так: X=(12 9 6 3 0 -3]
Какой оператор надо поместить в тело цикла
for k:=1 to 6 do begin
end;
1)
2)
3)
4)
5)
Выберите один из 5 вариантов ответа:
Х[k]:= k;
х[k]:= 14 - 2*k;
Х[k]:= 3*k - 15;
Х[k]:= 3*(k - 1) + 6;
Х[k]:= 15 - 3*k;​

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

25 декабря 1951 году был создан первый отечественный комп