Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Даны<span> два </span>числа<span>. Если оба кратны </span>четырем<span>, </span>товывести<span> их произведение.</span>
<span>Ответ: Если кратны, </span>то<span> значит без остатка делится на </span>4<span>. Первая формула будет деление на </span>4. Дальше уже условие какое-то<span> мутить на проверку полученного результата
</span>
Точный элемент экрана дисплея это:
пиксель.
Масло-салома , каприз-приказ соринка-росинка