Помощь - Поиск - Пользователи - Календарь
Полная версия: Нужно сделать блок схему(легкую)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
akva
Вот к этой задачке...Помогите пожалста людики....
Program ort;
Uses CRT;
type
vozrast=1..100;
var
n:vozrast;
begin
Clrscr;
Writeln('vvedite vozrast');
read(n);
case n of
1,21,31,41,51,61,71,81,91:Writeln('vam ',n, ' god');
5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100: Writeln('vam ',n ,' let');
else writeln('vam ',n, ' goda');
end;
readkey;
end.
akva
программа не может почему то сделать,уже многими пробовал
Ozzя
Цитата
программа не может почему то сделать,уже многими пробовал

Ну сам сделай.
Схема case - тут:
http://www.pascal7.ru/index.php?option=com...id=36&Itemid=45

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.