Решения в приложениях. Если будут вопросы - задавайте.
Var
x, sum: integer;
begin
read(x);
while(x > 0) do
begin
if(x mod 10 <= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.
Картины. Рисунки. Фотографии.
Сижу и рисую картину.
Просматриваю старые фотографии.
Смотрю детске рисунки.
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
0.355=3×10в -1 степени+5×10в -2 степени+5×10в -3 степени
-1, -2 и -3 это степени у десяток