Задачка на вынос мозга(Pascal)

 

srub

skop

 

что такое s? эту букву нераспознает как функции или что это

переменные string 

 

Паскаль бро,Турбо Паскаль ,АБС Паскаль

 

не Дельфи не СиШарп  и не Басик

Так тебе листинг программы нужен что-ли готовый?

Паскаль бро,Турбо Паскаль ,АБС Паскаль

 

не Дельфи не СиШарп  и не Басик

строковые переменные не проходили еще?  http://pascal.guti.ru/string.html

пиши тогда сразу write'ом тогда без присваивания

Паскаль бро,Турбо Паскаль ,АБС Паскаль

 

не Дельфи не СиШарп  и не Басик

строковые переменные не проходили еще?  http://pascal.guti.ru/string.html

пиши тогда сразу write'ом тогда без присваивания

не проходили ..из этого подобная хуета ВрайтЛн но я пробовал нехуя чтот..

вот дайдёшь до опп  строки хуйнёй покажуться

Короче вот мое начало

Var

x:real; r,k:integer

Begin

WriteLn('введите вещественное число x');

ReadLn(x);

r:=trunc(x);

k:=frac(x);

ReadLn®;

If (r>=1) and (r<1000) and (k>=0) and (k<=99) then

...

else

WriteLn('Введенное число не соотвествует условию');

И вот там де троеточие  надо учесть все случаи соотвественно с  падежами

забей

лол

если транк заканчивается на 1-4, то "рубль", "рубля" (кроме 11-14)

в остальных случаях - "рублей"

так же с копейками

в чем проблема вообще?