Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.
Можно уточнить именно плюсы и минусы чего? Суперкомпьютера или ПК? Или того и другого
Ответ:
слушай по информатике у меня плоховато но наверное так
Объяснение:
наверное так
A)*
б)/
в)*
г)+
д)*
е)*
/ - разделить * - умножить