Ответ:
15
Объяснение:
У тебя идет цикл от i=1 до i<=5 и параллельно после каждого выполнения цикла i становится на 1 больше
Т.к условие 'до тех пор пока i меньше или не станет равно 5' цикл выполняется
1)i=1
s=0+1=1
2)i=2
s=1+2=3
3)i=3
s=3+3=6
4)i=4
s=6+4=10
5)i=5
s=10+5=15
При достижении i=5 мы выходим из цикла
"Все люди смертны" и "Сократ человек" - посылки, "Сократ смертен" - заключение.
50(в 10)=110010 (в 2): делим 50 на 2 столбиком и записываем остаток в обратно порядке:
50/2=25 (ост. 0)
25/2=12 (ост 1)
12/2=6 (ост 0)
6/2=3 (ост 0)
3/2=1 (ост 1)
1/2=... (ост 1), переписываем в обратно порядке остатки
<em>Вкладка — элемент графического интерфейса пользователя, который позволяет в одном окне приложения переключение между несколькими открытыми документами или предопределёнными наборами элементов интерфейса, когда их доступно несколько, а на выделенном для них пространстве окна можно показывать только один из них.</em>
<em>Список — способ оформления перечней в тексте.</em>
<em>Контекстное меню - меню, набор команд в котором зависит от выбранного, или находящегося под курсором в момент вызова объекта, а также состояния рабочей среды и программы, в которой этот объект находится — то, что в совокупности представляет собой контекст для этого меню.</em>
1. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] mod 2=0 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
<span>End.
2. </span>var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] > 9 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
3. var a: array[1..10] of integer;
i: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
<span>End.
4. </span>var a: array[1..10] of integer;
i, r: Integer;
Begin
for i := 1 to 10 do read(a[i]);
i := 1;
while i < 10 do
if a[i+1] < a[i] then begin
r := a[i+1];
a[i+1] := a[i];
a[i] := r;
i := 1;
end else i := i + 1;
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
<span>End.
5. </span>var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 10 = 5 then kol := kol + 1;
writeln(kol);
<span>End.</span>