Написать программу в паскале, которая после введенного с клавиатуры числа(в диапазоне от 1 до 99), обозначающий денежную единицу, дописывал слово

+ 0 -

Alinabogdanova2000

18 февр. 2015 г., 17:31:58 (9 лет назад)

По идее нужен цикл, который будет перебирать значения case. Я больше знаю c#, но могу посоветовать только поработать с циклами, т.к не знаю как с ними обстоит дело в паскале.

+ 0 -

Tatashonok60

18 февр. 2015 г., 18:03:31 (9 лет назад)

Исправленный вариант:
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;

+ 0 -

Сніжна

18 февр. 2015 г., 19:37:48 (9 лет назад)

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 '; {Здесь ошибка, числа типа integer не выделяются апострофами, выделяются только строки, то есть компилятор воспринимает значения между ' ' как строку из букв и чисел, но в операторе case можно использовать только числовые типы, поэтому ' ' нужно убрать}

+ 0 -

2015ziyazetdinova

18 февр. 2015 г., 22:11:58 (9 лет назад)

Затем, по условию, если число а попадает в заданный диапазон, то ему присваивается опять же символы типа строка (string), нельзя присвоить числовой переменной строковое значение. Для вывода сообщений и значений переменных используется функция write('текст') или write(a) уже без кавычек, если это переменная, а не сообщение, которое нужно вывести.

+ 0 -

Kasapva

19 февр. 2015 г., 0:24:32 (9 лет назад)

Здесь подойдет такая команда write(a, 'kopeika'); То есть, сначала выводиться число а, введенное с клавиатуры, а затем текст уже в апострофах. Переменные нужно отделять от сообщения запятыми.