Написать программу в паскале, которая после введенного с клавиатуры числа(в диапазоне от 1 до 99), обозначающий денежную единицу, дописывал слово "копейка". например ,5 копеек,41 копейка и тд. вот мои попытки создать программу: program kopeika; var a: integer; begin writeln('vvedite chislo'); readln(a); case a of '1,21,31,41,51,61,71,81,91': a: ='kopeika '; '2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94': a: ='kopeiki '; '5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99': a: =' kopeek'; end; readln; end.
veronikasimonova1
2
27.05.2019 20:20
0
Другие вопросы по теме Информатика
ainur0018Ainur
26.08.2019 05:00
damilyaelesheva
26.08.2019 05:10
Данара24
04.08.2019 07:40
Zcnayper
04.08.2019 07:40
nnnnn777
04.08.2019 07:40
сонякласс17171717
04.08.2019 07:30
Популярные вопросы
- Какое существительное подобрать к прилагательному старый , что-бы словосочетание...
1 - Сочинение по произведению Муму. Татьяна- жертва крепостного права....
3 - С одной отары овец настригли 9814 кг шерсти, по 7 кг с каждой овцы, а с...
2 - Знайдіть об єм тіла, утвореного обертанням навколо осі абсцис фігури, обмеженої...
1 - Мощная обличительная мысль литературы 19 века нужно сочинение...
3 - разделительными вопросами по англ яз. Tom works in a shop . bess and Kate...
3 - 1. Переріз залізничного насипу має форму рівнобічно трапеції, основи якої...
2 - Укажите варианты ответов, в которых средством выразительности речи является...
2 - Поясніть мені будь ласка, я не дуже зрозумів тему на алгебрі (2х-3)(5х+1)-(х-6)(х+6)+13х=0...
2 - Мотоциклист едет по горизонтальной поверхности, описывая дугу радиусом 90...
1
program Kopeika;
var
a: integer;
begin
Writeln('Vvedite chislo');
Readln(a);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: write(a, ' kopeika');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: write(a, ' kopeiki');
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..99: write(a, ' kopeek');
end;
Readln;
end.