Вторник, 19.03.2024, 13:45
Задачи по информатике
Главная
|
Регистрация
|
Вход
Приветствую Вас
Гость
|
RSS
[
Новые сообщения
·
Участники
·
Правила форума
·
Поиск
·
RSS
]
Страница
1
из
1
1
Модератор форума:
ignorer
,
KOT_B_MEIIIKE
,
PASCAL26
,
atvrider
Форум
»
Решение задач по информатике
»
Задачи по программированию + блок-схемы
»
написать программу в pascal
(pascal)
написать программу в pascal
lula
Дата: Пятница, 19.02.2010, 18:04 | Сообщение #
1
Сержант
Группа: Новичок
Сообщений:
6
[ 0 ]
Статус:
Offline
написать программу, которая по введённому номеру месяца определяет номер квартала. использовать 1)case 2)if
ignorer
Дата: Пятница, 19.02.2010, 19:57 | Сообщение #
2
Генералиссимус
Группа: Модераторы
Сообщений:
602
[ 18 ]
Статус:
Offline
решение на PascalABC:
Code
Var a : integer;
begin
cls;
read(a);
case a of
1..3 : write('1');
4..6 : write('2');
7..9 : write('3');
10..12 : write('4');
end;
end.
ignorer
Дата: Пятница, 19.02.2010, 20:07 | Сообщение #
3
Генералиссимус
Группа: Модераторы
Сообщений:
602
[ 18 ]
Статус:
Offline
решение через if:
Code
Var a : integer;
begin
cls;
read(a);
if (a>=1)and(a<=3) write('1');
if (a>=4)and(a<=6) write('2');
if (a>=7)and(a<=9) write('3');
if (a>=10)and(a<=12) write('4');
end.
Форум
»
Решение задач по информатике
»
Задачи по программированию + блок-схемы
»
написать программу в pascal
(pascal)
Страница
1
из
1
1
Главная страница форума
Информация для участников
Важная информация
Вопросы и предложения
Решение задач по информатике
Задачи по программированию + блок-схемы
Задачи на системы счисления
Задачи на измерение количества информации
Задачи на логические основы эвм
Другие задания
Общение
Решение задач за вознаграждение
Поиск:
Copyright MyCorp © 2024