Помогите написать программу в Turbo Pascal и составить блок-схему - Страница 2

Vladimir_S · 28.11.2012, 09:50

Цитата:

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

Вот программа тебе:

Прекрасно, только непонятен смысл b и c. Между прочим, если понимать задание буквально:

Цитата:

Сообщение от Макsim

нужно проверить является ли этот месяц зимним.

то можно и короче:

Код:

Var
 Month:Byte;
Begin
 Write('Month number = ');
 Readln(Month);
 Writeln((Month=12) or (Month=1) or (Month=2));
 Readln
End.

Vladimir_S · 28.11.2012, 09:55

Цитата:

Сообщение от Макsim

Найти количество нулей,с порядковыми номерами,кратным четырем.Вывести полученную величину в массив в 2 столбика

Ну, я лично не возьмусь, ибо не представляю, как можно вывести найденное число нулей (допустим, 3) "в массив", да еще "в два столбика"!

28.11.2012, 09:50
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Решение проблемы может скрываться в одной из этих тем Помогите составить блок-схему и программу Составить блок-схему алгоритма. Написать листинг

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070