Все расписал на изображении.
Ответ:
В)
Объяснение:
Потому что, бан просто так, никогда не дают.
<h2>Ответ:</h2>
Если сложить числа от 1 до 3, то их сумма будет равна 6
<h2>Объяснение:</h2>
1+2+3 = 6
Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then write ('-');
while a<>0 do
begin
write (abs (a mod 10));
a:=a div 10
end
end.
Var n, k, i: integer;
begin k := 1; for i := 1 to 4 do begin read(n); if (n >= 3) and (n <= 9) then k := k * n; end; if k = 1 then writeln(-1) else writeln(k);end.