Uses crt;
var n,sum,i:integer;
begin
read(n);
while n>0 do
begin
if ((n mod 10) mod 2=0) and (n mod 10<8) then
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
<span>end.</span>
Официально как проект только немного отличается
1 байт = 8 бит
32 Мбит /8 = 4Мбайт
4*60сек*15мин=3600Мбайт=3.51Гбайт
INPUT - оператор, позволяющий вводить текстовые и числовые значения перемнных с клавиатуры
<u>Общая формула: INPUT "введи любое число" a</u> - при запросе на экране выдается текст "введи любое число", значение переменной кладется в переменную а
PRINT - оператор, позволяющий выводит текст или значения переменных на экран. Для быстроты набора обычно занимается знаком ?, ПК автоматический заменяет знак ? на PRINT
Общая формула: PRINT "печатай этот текст" - на экране напечатается "печатай этот текст"