Создай матрицу 765432 65432 5432 432 32 2

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin   for var i: =1 to 6 do begin       for var j: =8-i downto 2 do print(j);       writeln       end end. результат 7 6 5 4 3 2 6 5 4 3 2 5 4 3 2 4 3 2 3 2 2

1) (60-10): 2=25 (мин.) - потратила сегодня

2) 25+10=35 (мин.)

ответ: вчера катя выполнила по за 35 минут.

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