Требуется написать программу при выполнении которой с клавиатуры считывается натуральное число n, не превосходящее 10 в девятой степени, и выводится произведение цифр этого числа.

uses crt;

var p,n: integer; beginp: =1; write('n='); read(n); while n> 0 do beginp: =p*(n mod 10); n: =n div 10; end; writeln('p=',p); end.

Во вложении показана принятая условная схема нумерации полей. предполагается, что если ферзь стоит на клетке с координатами (3,4), он может пойти по горизонтали, вертикали или диагонали. соответствующие направления выделены цветом. чтобы взять фигуру (или пешку) противника по горизонтали, у обоих фигур должны быть одинаковы координаты строки (первые в паре). чтобы взять фигуру противника по вертикали, у обоих фигур должны быть одинаковы координаты столбца (вторые в паре в паре). наконец, чтобы взять фигуру противника по диагонали, у обоих фигур должна быть одинакова абсолютная величина разницы как между строками, так и между колонками. последнее правило взятия сложное, поэтому запишем его в условных обозначениях. пусть rq и cq - соответственно номера строки и столбца, пересечение которых указывает положение клетки с ферзем. пусть также фигура противника находится на клетке, заданной координатами rx и cx. тогда последнее правило можно записать в виде |rq-rx| = |cq-cx| теперь можно записать логическое выражение, значение которого истинно, если ферзь может взять фигуру (или пешку) противника. (rq=rx) ∨ (cq=cx) ∨ (|rq-rx| = |cq-cx|) // pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var (rq,cq): =readinteger2('введите номера горизонтали и вертикали ферзя: ');   var (rx,cx): =readinteger2('введите номера горизонтали и вертикали фигуры: ');   if (rq=rx) or (cq=cx) or (abs(rq-rx)=abs(cq-cx)) then writeln('yes')   else writeln('no') end. пример введите номера горизонтали и вертикали ферзя: 3 4 введите номера горизонтали и вертикали фигуры: 6 1 yes

Спорт-денсаулық кепілі әрбір спортпен айналысу керек. өйткені спортпен үнемі айналысқан ң дені сау, көңіл-күйі көтеріңкі болады және денсаулығы жақсарады. спорттық ойындардың түрлері өте көп: футбол, баскетбол, волейбол, теннис, хоккей, шаңғы тебу, суда жүзу, т.б. спорттың денсаулығына қаншалықты пайдалы екенін, оның өмірін ұзартатынын білеміз. сол үшін ерте жастан спортқа деген қызығушылығын ояту үшін мектеп бағдарламасына да енгізілген. біздің отбасымызда да анам мен әкем бізді үнемі спортпен айналысуымызды қалайды. күнде тәңертең ерте тұрып, «» телеарнасымен бірге түрлі жаттығулар жасаймын. аптасына үш рет «каратэ» спорттық секциясына барамын. өзіммен қатар құрдастарымды спортпен айналысуға шақырамын. денсаулық-зор байлық.денсаулық мықты болу үшін ға мынадай төрт шартты бұлжытпай орындау керек. олар: дене еңбегі, тамақ ішу, уақытты дұрыс пайдалану, шынығу және дем ала білу.