Программа определяет кратно число 10 или нет. Если кратно печатает True, если нет печатает False.
Вывод можно дополнить так:
write('Число ',x,' — ',a);
Движение объекта.Создание простой анимации в игровой среде.Объект будет двигаться постоянно,дойдя до края оттолкнется и обратнобудет двигаться
Выделение произвольной области
<span>Выбрать
</span><span>Резинка
</span><span>Заливка
</span><span>Экранная лупа
</span><span>Карандаш
</span><span>Кисть
</span><span>Распылитель
</span><span>Текст
</span><span>Линия
</span><span>Кривая
</span>Прямоугольник
Многоугольник
И т.д
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.