PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var b:=MatrRandom(m,m,-99,99); b.Println(4); Writeln(4*m*'-'); var (s,s1):=(Sqr(b[0,0]),0); for var i:=0 to m-1 do for var j:=0 to m-1 do if i+j<>0 then s1+=b[i,j]; s-=Sqr(s1); Writeln('Результат: ',s) end.
Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 11л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 6л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 1л
Переливаем 1 в 5л. Набираем 16 полностью. В 5 у нас 1л, в 16 у нас 16л
Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 12л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 7л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 2л
Переливаем 2 литра в 5, а 16 наполняем. Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 13л Из 16 литров переливаем в 5л, из 5л выливаем все. В 16 у нас становится 8л
Все. В 16 получается 8 литров.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку