Предмет: Информатика,
автор: Sabunzjke
Написать программу на паскале, запрашивающую у пользователя его возраст и в зависимости от введенного возраста выводящую, например, грудничок, детсадовец, школьник, студент, работающий, пенсионер
Аноним:
Вам надо четко задать критерии для каждой категории.
Мне нужно хотя-бы понять как выглядеть должно. Критерии могу и сам поставить
// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
begin
case ReadInteger('Введите возраст:') of
6..18:Writeln('Школьник');
19..24:Writeln('Студент');
else Writeln('Пенсионер')
end
end.
begin
case ReadInteger('Введите возраст:') of
6..18:Writeln('Школьник');
19..24:Writeln('Студент');
else Writeln('Пенсионер')
end
end.
Это нетипизированный файл
Это вообще не файл, это текст работающей программы
только там надо добавить строки для других категорий
Ответы
Автор ответа:
1
var age: Integer;
begin
writeln('Введите свой возраст');
readln(age);
if (age>-1) and (age<4) then writeln('малыш');
if (age>3) and (age<7) then writeln('детсадовец');
if (age>6) and (age<17) then writeln('школьник');
if (age>16) and (age<23) then writeln('студент');
if (age>22) and (age<50) then writeln('работник на заводе');
if (age>49) and (age<100) then writeln('пенсионер');
end.
begin
writeln('Введите свой возраст');
readln(age);
if (age>-1) and (age<4) then writeln('малыш');
if (age>3) and (age<7) then writeln('детсадовец');
if (age>6) and (age<17) then writeln('школьник');
if (age>16) and (age<23) then writeln('студент');
if (age>22) and (age<50) then writeln('работник на заводе');
if (age>49) and (age<100) then writeln('пенсионер');
end.
Спасибо, у меня видимо не получалось написать, потому что я после каждый строки прописывал readln. Большущее спасибо 3
Похожие вопросы
Предмет: Русский язык,
автор: Matvey4832
Предмет: История,
автор: olgakudrya2633
Предмет: Русский язык,
автор: bosyak2351
Предмет: Химия,
автор: mailjurkaru
Предмет: Литература,
автор: Derskay1