В ячейке В2 может храниться формула =6/(A1-B1)
Спорт-денсаулық кепілі
Әрбір адам спортпен айналысу керек. Өйткені спортпен үнемі айналысқан адамның дені сау, көңіл-күйі көтеріңкі болады және денсаулығы жақсарады. Спорттық ойындардың түрлері өте көп: футбол, баскетбол, волейбол, теннис, хоккей, шаңғы тебу, суда жүзу, т.б. Спорттың адам денсаулығына қаншалықты пайдалы екенін, оның адам өмірін ұзартатынын білеміз. Сол үшін балаларды ерте жастан спортқа деген қызығушылығын ояту үшін мектеп бағдарламасына да енгізілген.
Біздің отбасымызда да анам мен әкем бізді үнемі спортпен айналысуымызды қалайды. Күнде тәңертең ерте тұрып, «Балапан» телеарнасымен бірге түрлі жаттығулар жасаймын. Аптасына үш рет «каратэ» спорттық секциясына барамын.
Өзіммен қатар құрдастарымды спортпен айналысуға шақырамын. Денсаулық-зор байлық.Денсаулық мықты болу үшін адамға мынадай төрт шартты бұлжытпай орындау керек. Олар: дене еңбегі, тамақ ішу, уақытты дұрыс пайдалану, шынығу және дем ала білу.
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.
const nn=5;
var
a: array[1..nn,1..5] of integer;
b: array [1..nn] of integer;
i,j:integer;
begin
for i:= 1 to 4 do //Ввод первоначального массива
for j:= 1 to 3 do //(сначала вводятся строки, затем
readln(a[i,j]); // столбцы}
writeln; //Просто пропуск строки для того, что бы результат не сливался.
for i:= 1 to 4 do //Печать введенного массива
begin //(не обязятельна,служит лишь для лучшей проверки)
for j:= 1 to 3 do
write(a[i,j]:4);
writeln;
end;
writeln;
for j:= 1 to 3 do b[j]:=0; //Зануление второго массива.
for j:= 1 to 3 do // Проход по начальному массиву наоборот,
for i:= 1 to 4 do // сначала по столбцам,затем по строкам.
b[j]:=b[j]+a[i,j]; //Во второй массив записывается сумма элем. столбоцв
for j:= 1 to 3 do write(b[j],' ');
end.