<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№4</u>
begin
var F:=ArrRandom(100,-50,50); F.Println;
Writeln('Сумма отрицательных элементов: ',F.Where(x->x<0).Sum)
end.
<u>Пример</u>
16 -23 -23 -31 0 -24 44 9 18 -48 26 27 24 8 -41 -37 35 -15 -36 8 -32 -3 -47 39 48 -4 45 -39 -1 -23 15 -44 26 21 -22 49 10 49 41 -29 23 -9 21 25 41 -13 17 19 -27 -49 -20 -46 43 8 -25 -32 -26 -11 -29 -47 -19 33 -40 -10 -12 19 -49 -48 -21 -39 4 37 -6 43 36 28 27 -22 49 10 29 -24 39 -3 48 11 -36 -33 -4 -40 25 -30 27 37 41 40 -20 -20 -13 -29
Сумма отрицательных элементов: -1374
<u>№5</u>
begin
var С:=ArrRandom(50,-10,10); С.Println;
Writeln('Сумма положительных элементов до первого нуля: ',
С.Where(x->x>=0).TakeWhile(x->x<>0).Sum)
end.
<u>Пример</u>
9 -5 -6 8 -6 -6 2 -10 1 -2 10 1 -7 -1 7 -1 0 -5 2 0 5 10 -10 6 -3 -9 -7 -2 9 -5 10 5 -8 4 5 -6 6 -7 -10 -6 -1 -9 -10 10 2 6 -3 7 -8 6
Сумма положительных элементов до первого нуля: 38
<u>№6</u>
begin
var C:=ArrRandom(20,-50,50); C.Println;
var D:=C.Where(x->x>0).ToArray; D.Println
end.
<u>Пример</u>
-38 -34 -49 -21 1 -1 -7 -44 -43 -40 8 -47 -49 44 6 31 -33 39 22 -18
1 8 44 6 31 39 22
Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
<u /> <u> 123 I 61 I 30 I 15 I 7 I 3 I 1 I
</u> 1 I 1 I 0 I 1 I 1 I 1 I 1 I
<-----------------------------------------------
Ответ; 123 = 1111011 в двоичной с/с
Теперь объяснение:
1) Разлинуй так, как показано на схеме.
2) Число 123 : 2 = 61(ост.1)
3) Число 61 идёт по верхней строчке. Остаток 1 идёт в нижнюю строчку.
4) 61 : 2 = 30 (остаток 1). Число 30 - следующее число по верхней строчке.
Остаток 1 - следующее по нижней строчке.
5) Делим 30 на 2, Делится без остатка
30 : 2 = 15 (ост.0) 15 идёт по верхней строчке.
0 идёт по нижней строчке
6) Деление цифр верхнего ряда на 2продолжаем до тех пор, пока число не
закончится.
В нижней строчке у нас будут только единицы и нули.
7) Начинать записывать число в двоичной системе счисления <u>необходимо </u>
<u> справа налево</u>, т.е. с конца, как показано стрелочкой.
И у нас получится 1111011
Ответ: 123 = 1111011 в двоичной с/с.
-----------------------------------------------------------------------------------------------------------------
Если что-то не поймёшь, пиши сообщения на мой профиль.
<u />
Юля использовала команду: 2) a2:=a div 10 mod 10;
1) a2:=a mod 10 div 10;
будет 0 в любом случае
число mod 10 = последней цифре числа
число div 10 - число без последней цифры, в случае однозначного числа - всегда будет 0
Например: (123 mod 10) div 10 = 3 div 10 = 0
2) a2:=a div 10 mod 10;
число div 10 = число без последней цифры
число mod 10 = последней цифре числа
Например: (123 div 10) mod 10 = 12 mod 10 = 2
3) a2:=a div 100 mod 10;
будет первая цифра трёхзначного числа
число div 100 = число без двух последних цифр, в случае трёхзначного числа - однозначное число
число mod 10 = последней цифре числа, в случае однозначного числа - самому числу
Например: (123 div 100) mod 10 = 1 mod 10 = 1
какой язык то???? на тебе паскаль...
var
in,out: text;
i.j: integer;
mas:array [0..4,1..6] of integer;
begin
assign(in1,'in.txt');
reset(in1);
assign(out1,'out.txt');
rewrite(out1);
for i:=1 to 4 do
begin
for j:=1 to 6 do
read(mas[i,j]);
readln;
end;
close(in);
close(out);
end.
капец здесь отступы нельзя делать... фиг поймешь...
