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.
1)Основные составляющие персонального компьюетра: системный блок и устройства ввода-вывода информации. К устройствам ввода-вывода информации относятся клавиатура, мышь, монитор, принтер, сканер, видеокамера, динамики и прочие подобные устройства.Системный блок состоит из обязательных устройств: материнская плата, жесткий диск, процессор, оперативная память, блок питания, видеокарта, системный динамик. К необязательным составляющим системного блока можно отнести звуковую карту, сетевую карту, floppy, CD и DWD-приводы, картридеры и прочие навороты.
При температуре -39°С ртуть станет твердой.