X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Помогите написать простую программу на паскале
blackw0lf
blackw0lf
Topic Starter сообщение 1.9.2009, 17:31; Ответить: blackw0lf
Сообщение #1


Участник
***

Группа: User
Сообщений: 106
Регистрация: 22.6.2009
Поблагодарили: 26 раз
Репутация:   6  


Помогите пожалуйста написать программку на паскале. 1 сентября а брату уже что-то задали.. angry.gif
В паскале я вообще полный ноль.
Необходимо написать программку,которая будет показывать сумму четных чисел и если введешь нечетные то произведение нечетных чисел. В общем, на сколько я помню со школы вроде легко..но сам немогу rolleyes.gif
С меня спасбо и плюсик в репу blush.gif
Заранее благодарен...

Ах да,забыл должно быть 5 переменных...

Сообщение отредактировал blackw0lf - 1.9.2009, 17:42


--------------------
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
MadHatter77
MadHatter77
сообщение 2.9.2009, 10:24; Ответить: MadHatter77
Сообщение #2


Участник
***

Группа: User
Сообщений: 197
Регистрация: 23.7.2009
Поблагодарили: 57 раз
Репутация:   9  


uses: CRT;
var Num : LongInt; // вводимое число
    Key : Char;    // обработчик нажатия кнопок
    Sum, Mult      : LongInt; // сумма и произведение
    isNechet       : Boolean; // флаг, вводились ли нечётные
begin
Sum:=0;
Mult:=1;
isNechet:=False; //нечётные ещё не вводились
repeat
  ClrScr;
  Write ('Введите число: ');
  Readln (Num);
  if (Num mod 2)=0    // отстаток от деления на 2
   then Sum:=Sum+Num  // если чётное - плюсуем
   else
    begin
     isNechet:=True;   // если нечётное - ставим флаг, что хоть одно нечётное введено
     Mult:=Mult*Num;  // если нечётное - умножаем
    end;    
  Writeln ('Сумма чётных чисел: ', Sum);
  if isNechet=True
   then Writeln ('Произведение нечётных чисел: ', Mult)
   else Writeln ('Нечётных чисел введено ещё не было');
  Writeln ('Нажмите любую клавишу для продолжения или Esc для завершения');
  Key:=Readkey; // ждём нажатия клавиши
until Key=#27; // пока не нажат Esc. 27 - ASCII код Escape
end;


тыщу лет не писал на паскале... проверяйте)

Сообщение отредактировал MadHatter77 - 2.9.2009, 12:57


--------------------
кредитов никогда не прошу и не беру! убедительная просьба не выдавать их мне!


Поблагодарили: (1)
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
blackw0lf
blackw0lf
Topic Starter сообщение 2.9.2009, 15:58; Ответить: blackw0lf
Сообщение #3


Участник
***

Группа: User
Сообщений: 106
Регистрация: 22.6.2009
Поблагодарили: 26 раз
Репутация:   6  


Огромное спасибо!


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Помогите выбрать ноутбук
Ноутбук для детей
25 kstnews 495 Сегодня, 1:30
автор: kstnews
Открытая тема (нет новых ответов) Помогите разобраться с Android TV
2 MakDonald 168 Вчера, 21:09
автор: MakDonald
Открытая тема (нет новых ответов) как правильно написать альт и тайтл для изображений
0 galaker 403 13.12.2017, 22:50
автор: galaker
Открытая тема (нет новых ответов) Помогите выбрать программу
Помогите выбрать программу
11 impak 1365 11.12.2017, 13:11
автор: Mikki
Открытая тема (нет новых ответов) Помогите найти плагин на WP
Отзывы с профилей соц сетей
1 SEOMR 452 30.11.2017, 7:18
автор: Nell


 



RSS Текстовая версия Сейчас: 19.12.2017, 2:47
Дизайн