Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.<span>
</span>
Var s:string;
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.
Ответ:
1
Объяснение:
связь между сдачей математики и информатики
ветвление - это выполнение той или другой последовательности действий в зависимости от выполнения какого-либо условия
например, вспомним сказку А.С. Пушкина "Руслан и Людмила", а именно действия учёного кота:
<span><em>Идет направо - песнь заводит,</em>
</span><span><em>Налево - сказку говорит</em>
алгоритм для кота:
<em>если </em>идешь направо,
</span><span> <em>то </em>пой песню,
<em> иначе </em>говори сказку</span>
<span>другой пример из жизни:
<em>если </em>сделал уроки,<em>
</em></span><span><em> то </em>отдыхай,
<em> иначе </em>делай уроки</span>
<span>и ещё пример:
<em>если </em>натуральное число делится на два без остатка,
</span><span><em> то </em>данное число чётное,
<em>иначе </em>данное число нечётное
</span>