tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу в паскале
Напишите программу в паскале с if 0-16 младенец 7-18 ребёнок 19-55 взрослый 56-100 пенсионер
shmakovaangeli
3 17.08.2019 11:20
1
Ответы
ТигранГеворг
05.10.2020 00:38
Var age:integer;
begin
readln(age);
if (age >= 0)and(age <=7) then writeln('Младенец');
if (age > 7)and(age < 18) then writeln('Ребёнок');
if (age >= 18)and(age <= 55) then writeln('Взрослый');
if (age > 55) then writeln('Пенсионер');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Самолеееет555
19.09.2019 12:01
Напишите программу которая выводит на экран таблицу степеней тройки (от нулевой до десятой)...
ivanchistyakov
31.03.2021 14:52
Решите уравнение в паскаль y=x²+2...
AnnaMarkeca91
31.03.2021 14:56
Создать нейронную сеть распознавания цифр от 0 до 9. Входная матрица 8x5....
hbkkb
18.09.2020 05:33
Жадтың қызметі Жад түрлері1Ақпараттарды компьютерді жүктеумен оны іске қосар алдындасактайдыІшкі жедел жад (ЖЕСК)Аралық, есте сақтау құрылғысы менпроцессор арасындағы ақпараттардыалмастыруға...
Mokysya
04.06.2020 11:03
Сформируйте структуру базы данных Гостиница в графическом виде и написать SQL-за какие клиенты не пожилого возраста снимали 26 комнату вся надежда на вас !...
sp14
03.06.2020 23:29
Виконати розрахунок таблиці в середовищі MS Excel. Заповніть за до формул діапазон клітинок Е3:Е6. Выполнить расчет таблицы в среде MS Excel. Заполните с формул диапазон ячеек...
REDbad5
03.06.2020 23:28
Створити таблицю, використовуючи математичні функції, обчислити тільки виділенні діапазони. Создать таблицу, используя математические функции, вычислить только отделение диапазоне....
Кица234
03.06.2020 23:23
Дано натуральное число n и действительное число x. Вычислите: ( по языку C++ )и плюс нужно нарисовать Блок схему ...
urbutite71
30.06.2019 13:40
Проанализируйте работу программы. program math; var x, y: integer; begin x: =1; y: =1; while x 5 do begin y: =y*2; x: =x+1 end; end. ответьте на вопросы: 1) сколько раз исполнится...
Рома555555
20.04.2020 08:04
В тексте. Объясни свой выбор.Балкав К..з..хстане есть уникал...ноеоз..ро Балкаш. Оно имеет форму по-лумесяца. Половина в...ды оз...ра прес-ная, половина - с...лёная. Учёныеоб...яснить...
Популярные вопросы
в какую точку перейдет точка а) (3;2) б) (0;2) в) (2;-5) при параллельном переносе...
2
Тело движется по прямой. Под действием постоянной силы 4 Н импульс тела уменьшился...
3
Существует ли параллельный перенос переводит точку а (-2;3) точку B (1;2), точку...
3
Divitiae magnae viris stultis nocent. Terra plantārum variārum plena est. переведите...
1
Историческая правда и художественный вымысел в романе Дубровский....
1
Напишіть формулу графічна оболонки алюмінію...
1
6. Поставьте имена собственные в нужной форме: у студента (Кот), с (Шульц Виктор...
3
Не могу решить. Завтра контрольная, а понять не могу!...
1
Чтобы сливочек бурёнушка дала. KВ218. Придумайте ситуации, Когда молодомувановичу...
2
Почему умным людям живется труднее чем глупым, на примемере чацкого из рассказа...
2
begin
readln(age);
if (age >= 0)and(age <=7) then writeln('Младенец');
if (age > 7)and(age < 18) then writeln('Ребёнок');
if (age >= 18)and(age <= 55) then writeln('Взрослый');
if (age > 55) then writeln('Пенсионер');
end.