Вторник, 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