Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
1) Рядом с названием какой группы нужно нажать на кнопку, чтобы появилось диалоговое окно, где можно разреженность текста- Шрифт.
2)Рядом с названием какой группы нужно нажать на кнопку , чтобы появилось диалоговое окно, где можно установить красную строку- Абзац.
Диапозон A5:D7 содержит 12 ячеек.
Смотри во вложении.
Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>