Спорт-денсаулық кепілі
Әрбір адам спортпен айналысу керек. Өйткені спортпен үнемі айналысқан адамның дені сау, көңіл-күйі көтеріңкі болады және денсаулығы жақсарады. Спорттық ойындардың түрлері өте көп: футбол, баскетбол, волейбол, теннис, хоккей, шаңғы тебу, суда жүзу, т.б. Спорттың адам денсаулығына қаншалықты пайдалы екенін, оның адам өмірін ұзартатынын білеміз. Сол үшін балаларды ерте жастан спортқа деген қызығушылығын ояту үшін мектеп бағдарламасына да енгізілген.
Біздің отбасымызда да анам мен әкем бізді үнемі спортпен айналысуымызды қалайды. Күнде тәңертең ерте тұрып, «Балапан» телеарнасымен бірге түрлі жаттығулар жасаймын. Аптасына үш рет «каратэ» спорттық секциясына барамын.
Өзіммен қатар құрдастарымды спортпен айналысуға шақырамын. Денсаулық-зор байлық.Денсаулық мықты болу үшін адамға мынадай төрт шартты бұлжытпай орындау керек. Олар: дене еңбегі, тамақ ішу, уақытты дұрыс пайдалану, шынығу және дем ала білу.
Я тут решил попробовать вспомнить старое, но увы не получилось всё сделать правильно, вроде код ниже правильный, но где написано перед строкой "//" это я пометил, что не знаю как там писать. Попробуй сам изменить/дописать код:
program hello;
var
n, kd, d:integer;
begin
read(n);
kd:=0;
// d:=2...[sqrt(n)];
if n mod d = 0 then
kd:=kd+1
else
// d:=2...[sqrt(n)];
begin
if kd = 0 then
writeln('выв "простое"')
else
writeln('ыв "составное"')
end;
end.
Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>
<span>Пиксель, наверное, разве что слово "логический" смущает</span>
Да, правильно, т.к. в 1 мб 8388608 бит. Делим на 4 и все.