Программа на Паскале

@_║RAZOR║_ · Регистрация: 22.04.2009

Author24 — интернет-сервис помощи студентам

Дорогие форумчанины очень нужна ваша помощь....
Нужно сделать задачку на паскале, уже несколько часов сижу не могу догнать как её сделать.
Условие:
По введённому натуральному числу n (n<100) обозначающему количество ворон, вывести надпись <<На дереве n ворон>>, где ворона склоняется соответственно n:<<ворон>>, <<ворона>>, <<вороны>>. В случае n, превышающего 100, вывести надпись <<Ветка обломилась>>.

Заранее большое спасибо

@c00le® · 22.04.2009, 19:09

Pascal

Program ptica;
 
uses crt;
 
var
n:integer;
x:string;
 
begin
clrscr;
write('Введте кол-во ворон: ')
readln(n);
 
 if n>=100 then
    begin 
    Writeln('Ветка обламилась... ');
Exit;
end;
 
if n<100 then
   case n of
     1,21,31,41,51,61,71,81,91: x:='ворона';
     2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94: x:='вороны';
     5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99:x:= 'ворон';
   end;
writeln('На дереве ',n,' ', x);
readkey;
 
end.

@_║RAZOR║_ 0 / 0 / 0 Регистрация: 22.04.2009 Сообщений: 7
		1
	Программа на Паскале 22.04.2009, 18:54. Показов 1615. Ответов 1 Метки нет (Все метки) Дорогие форумчанины очень нужна ваша помощь.... Нужно сделать задачку на паскале, уже несколько часов сижу не могу догнать как её сделать. Условие: По введённому натуральному числу n (n<100) обозначающему количество ворон, вывести надпись <<На дереве n ворон>>, где ворона склоняется соответственно n:<<ворон>>, <<ворона>>, <<вороны>>. В случае n, превышающего 100, вывести надпись <<Ветка обломилась>>. Заранее большое спасибо 0

	22.04.2009, 19:09

Программа на Паскале

Решение