<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
<u>Пример</u>
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2
Спорт-денсаулық кепілі
Әрбір адам спортпен айналысу керек. Өйткені спортпен үнемі айналысқан адамның дені сау, көңіл-күйі көтеріңкі болады және денсаулығы жақсарады. Спорттық ойындардың түрлері өте көп: футбол, баскетбол, волейбол, теннис, хоккей, шаңғы тебу, суда жүзу, т.б. Спорттың адам денсаулығына қаншалықты пайдалы екенін, оның адам өмірін ұзартатынын білеміз. Сол үшін балаларды ерте жастан спортқа деген қызығушылығын ояту үшін мектеп бағдарламасына да енгізілген.
Біздің отбасымызда да анам мен әкем бізді үнемі спортпен айналысуымызды қалайды. Күнде тәңертең ерте тұрып, «Балапан» телеарнасымен бірге түрлі жаттығулар жасаймын. Аптасына үш рет «каратэ» спорттық секциясына барамын.
Өзіммен қатар құрдастарымды спортпен айналысуға шақырамын. Денсаулық-зор байлық.Денсаулық мықты болу үшін адамға мынадай төрт шартты бұлжытпай орындау керек. Олар: дене еңбегі, тамақ ішу, уақытты дұрыс пайдалану, шынығу және дем ала білу.
64·40·64 = 2^6·5·2^3·2^6 = 5 · 2^15
5·2^15 байт = 5·2^5 килобайт = 160 Кб
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.
<span>Носитель информации в Древней Руси. 7 букв. </span><span>
береста</span>