По введенной зароботной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер

@Protey · Регистрация: 08.01.2012

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

Для решения задачи использовать оператор выбора. По введенной зароботной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер.

@КонецСвета · 16.01.2012, 20:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var z: longint;
begin
write('Введите зарплату в $: ');
readln(z);
case z of
0..100:         writeln('нищий');
101..500:       writeln('бедный');
501..1000:      writeln('среднего достатка');
1001..10000:    writeln('богатый');
end;
if z>10000 then writeln('миллионер');
end.

@Protey · 16.01.2012, 20:58 **[ТС]**

а все спасибо большое. а можете другие решить ))

Добавлено через 4 минуты
1Дан радиус окружности с центром в начале координат. Ввести координаты двух точек и определить для каждой, принадлежит ли она кругу.
2.Для решения задачи использовать оператор выбора.
По введенному дню недели определить, рабочий это день или выходной.

@КонецСвета · 16.01.2012, 21:26

Сообщение от Protey

2.Для решения задачи использовать оператор выбора.
По введенному дню недели определить, рабочий это день или выходной.

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var d: byte;
begin
write('Введите номер дня: ');
readln(d);
case d of
1..5: writeln('рабочий день');
6,7:  writeln('выходной день');
else  writeln('день недели введен неправильно');
end;
end.

@Севак · 16.01.2012, 21:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var den: string;
begin
writeln('Введите день недели (вводить с большой буквы. пример: Среда');
readln(den);
if (den='Понедельник') or (den='Вторник') or (den='Среда') or (den='Четверг') or (den='Пятница') or (den='Суббота') then begin
writeln('Рабочий день');
end
else
if den='Воскресенье' then begin
writeln('Выходной');
end;
end.

Добавлено через 2 минуты
КонецСвета, а я пытался сделать с названием дня недели и оператором case, но там, как я понял, нельзя вводить текст, он его не воспринимает, сделал вот так)

@КонецСвета · 16.01.2012, 22:07

Севак, если бы дни недели начинались на разные буквы, как красиво можно было бы сделать =)

@Севак · 16.01.2012, 22:11

КонецСвета, среда и суббота все портят)

@Protey · 17.01.2012, 01:08 **[ТС]**

это точно))) Спасибо большое всем=)))

@Andrey82 · 15.04.2012, 23:30

Сообщение от КонецСвета

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var d: byte;
begin
write('Введите номер дня: ');
readln(d);
case d of
1..5: writeln('рабочий день');
6,7:  writeln('выходной день');
else  writeln('день недели введен неправильно');
end;
end.

а как зделать блок схему?

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Protey 0 / 0 / 0 Регистрация: 08.01.2012 Сообщений: 9

	По введенной зароботной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер 16.01.2012, 17:02. Показов 2182. Ответов 8 Метки нет (Все метки) Для решения задачи использовать оператор выбора. По введенной зароботной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер. 0

@Protey 0 / 0 / 0 Регистрация: 08.01.2012 Сообщений: 9
	16.01.2012, 20:58 [ТС]
	а все спасибо большое. а можете другие решить )) Добавлено через 4 минуты 1Дан радиус окружности с центром в начале координат. Ввести координаты двух точек и определить для каждой, принадлежит ли она кругу. 2.Для решения задачи использовать оператор выбора. По введенному дню недели определить, рабочий это день или выходной. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	16.01.2012, 22:07
	Севак, если бы дни недели начинались на разные буквы, как красиво можно было бы сделать =) 1

@Севак любитель покушать 687 / 641 / 248 Регистрация: 25.09.2011 Сообщений: 1,313
	16.01.2012, 22:11
	КонецСвета, среда и суббота все портят) 1

@Protey 0 / 0 / 0 Регистрация: 08.01.2012 Сообщений: 9
	17.01.2012, 01:08 [ТС]
	это точно))) Спасибо большое всем=))) 0