Помогите пожалуйста на turbo pascal составить алгоритм написания программы при вводе…

Question

40

Помогите пожалуйста на turbo pascal составить алгоритм написания программы при вводе числа любого чтоб определяло окончание гривна, гривен, гривны! Пожалуйста срочно надо! Например если число 5 то 5 гривен, 3 гривны, 1 гривна!

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

burkan · Accepted Answer

64

burkan

06 апреля 2023

var s, x: integer; begin writeln ('Введите число гривен: '); readln (x); s: =x mod 10; case s of 1: writeln (x, ' гривна'); 2… 4: writeln (x, ' гривны'); 5… 9, 0: writeln (x, ' гривен'); end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: