tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Программа паскаль ввести
Программа паскаль ввести число, определяющее стоимость покупки (например 123, 50). вывести строку, определяющую стоимость с использованием текста (123 руб. 50 копеек).
Ник0090
3 08.07.2019 12:20
0
Ответы
sahin123321
31.07.2020 09:18
Var s,d,v:string;n,m:integer;
begin
Read(s);
n:=length(s);
m:=pos('.',s);
d:=copy(s,1,m-1);
v:=copy(s,m+1,n);
write(d,' руб. ',v, ' копеек');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Helpmeplz123
20.09.2019 04:30
Определить площадь треугольника по формуле герона при заданных a,b,c. формула герона: c =корень p*(p-a)*(p-b)*(p-c). где p - полу периметр...
denisdudkin739
20.09.2019 04:30
Дан двумерный массив. каждому элементу массива сменить знак на противоположный....
personalyanaul
20.09.2019 04:30
Объем памяти. в кодировке unicode на каждый символ отводится два байта. определите количество символов, информационный объем которых составляет 656 бит в этой кодировке...
сонка123456789
20.09.2019 04:30
При вводе строчной буквы алфавита выводит заглавную этой букву...
goodsmalgirl
20.09.2019 04:30
При вводе текста hello , world, удаляет 7 символов начиная с запетой и выводит hello...
Keklol55
20.09.2019 04:40
Определите объём звукового файла , если передача его по сети длилась 0,5 с при скорости 155 мегабайт/с . запишите полученный результат в байтах...
таир20
20.09.2019 04:40
Заполните массив размерностью 15 случайными числами из промежутка [-350; 350] выведите его на экран в строку найдите произведение положительных элементов массива кратных...
nikitakurganov
20.09.2019 04:40
735 в 2 систему исчесления в 8 систему в 16 ричную...
popovamelanaliceysi
20.09.2019 04:40
Перевести число в25,с3 из шестнадцатеричной системы во 2,8,10 с решением...
crosser001
20.09.2019 04:40
представления алгоритма с фигур называется а)программа б)алгоритм в)блок схема г)исполнитель...
Популярные вопросы
укладіть хронологію подій які можуть у різний б характеризувати повсякденне...
3
Дано треугольник АВС Используя теорему косинусовзапишите чему равен...
3
Почему культ Атона не задержался в древнем Египте?...
3
какую температуру показывает термометр, изображенный на рисунке 9?...
2
Аукымды ары мазмунды каркаралы петициясы кабылданган жыл ?...
3
Соотнеси предложенные понятия с соответтвующими определениями ...
2
Көп нүктенің орнына керекті сөздерді қойыңыз. Айтылған сөз оқпен тең....
2
. Слово в лексикології називаютьА лексичне цілесинтаксичне цілеБ...
1
Сколько байта и бита на словах Info,Expo,Demo,Delta...
2
Где спал Антон пафнутьич и почему...
2
begin
Read(s);
n:=length(s);
m:=pos('.',s);
d:=copy(s,1,m-1);
v:=copy(s,m+1,n);
write(d,' руб. ',v, ' копеек');
end.