Ответы на вопрос:
Program n1; var a: real; r,k: integer; begin readln(a); r: =trunc(a); k: =trunc(a*100); k: =(k mod 100); writeln('рубли: ',r); writeln('копейки: ',k); end.
Популярно: Информатика
-
В таблице приведены запросы к поисковой системе и найденное по этим...
Moran130.04.2022 17:43 -
Надо переделать код для лазаруса (из pascalABC на Freepascal), а...
Artem2003200309.04.2023 16:17 -
Преобразуйте данную формулу равносильным образом так, чтобы она содержала...
bulochka22824.05.2020 17:51 -
Я скачал файл exe с вирусом он проник в компьютер? Или проникнет...
karen78106.03.2022 16:16 -
Дан массив из 100 элементов . числа трехзначные . вычислить среднее...
Danilka969605.03.2022 10:12 -
Cили с++. (укр)масив містить довільні значення. переписати у зворотньому...
8705623194624.10.2020 06:11 -
Qbasic. , ! дано целое число n и вектор из n целых чисел. вывести...
romatopovsky02.05.2023 06:56 -
Qbasic. , . даны целые положительные числа a и b (a...
TruLLa25.06.2020 19:12 -
Какие вопросы в связи с эпохой большого террора остаются актуальными...
msveronika04404.09.2020 11:24 -
Вопросы по рассказу а.с.пушкина капитанская дочка 1)-какой была служба...
6valeria611.07.2022 13:48