Var n,s,i:integer;
begin
s:=1;
writeln('Введите число');
readln(n);
for i:=1 to n do
begin
if (i mod 2 =0) then s:=s*i;
end;
writeln(s);
<span>end.</span>
1. Скретч
2. Какие смайлы можно использовать, а какие нет
3. Как делать презентации
4. Поведение в интернете
5. Поведение за компом
var a:array[1..3,1..4]of integer;
j,i,sum:integer;
begin
for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]);
for i:=1 to 3 do sum:=sum+a[i,4];
writeln(sum);
end.
Присутствуют операторы if, then, else. Значит ветвление
Ответ:б