Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 28, средняя оценка - 4.96
Обернись
0 / 0 / 0
Регистрация: 28.12.2013
Сообщений: 59
#1

Составить программу, определяющую результат гадания на ромашке - Turbo Pascal

29.12.2013, 17:22. Просмотров 5499. Ответов 2
Метки нет (Все метки)

Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.
http://www.cyberforum.ru/turbo-pascal/thread231737.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2013, 17:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить программу, определяющую результат гадания на ромашке (Turbo Pascal):

Составить программу ,определяющую по номеру места
В плацкартном вагоне 54 места ,которые разделены еа 10 купе. Составить...

Составить программу, определяющую спасутся ли пассажиры
:yahoo:Всем здравствуйте! Помогите пожалуйста! В Атлантическом океане...

Составить программу, определяющую периметр пятиугольника
Заданные координаты вершин пятиугольника(x1,y1),)(x2,y2), (x3,y3),)(x4,y4),...

Составить программу определяющую даты рождения по фамилии
Сформировать файл,компоненты которого являются записями ,содержащими информацию...

Составить программу, определяющую пред максимальный элемент массива
Дан целочисленный одномерный массив, вывести пред максимальный элемент массива....

2
Kam_1995
32 / 32 / 22
Регистрация: 23.03.2013
Сообщений: 175
29.12.2013, 18:02 #2
Лучший ответ Сообщение было отмечено Обернись как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var i,n: byte;
 
BEGIN
clrscr;
write('Vvedite kol-vo lepestkov: ');
readln(n);
for i:=1 to n do begin
if (i mod 2 = 0) then writeln('Ne Lubit')
else writeln('Lubit');
end;
 
repeat until keypressed;
END.
1
GreenForest
50 / 42 / 24
Регистрация: 05.12.2013
Сообщений: 275
31.12.2013, 23:31 #3
Можно короче:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var i,n: byte;
 
BEGIN
clrscr;
write('Vvedite kol-vo lepestkov: ');
readln(n);
if (i mod 2 = 0) then writeln('Ne Lubit')
else writeln('Lubit');
end;
 
repeat until keypressed;
END.
так не будет лишних слов при выводе
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.12.2013, 23:31
Привет! Вот еще темы с решениями:

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

Составить программу, определяющую, все ли буквы слова Х различны
Составить программу, определяющую, все ли буквы слова Х различны.

Составить программу, определяющую средний рост учащихся в классе.
ПОМОГИТЕ РЕШИТЬ НЕСКОЛЬКО ЗАДАЧ: 1. (используя оператор repeat):...

Составить программу определяющую количество счастливых билетов на катушке
ПЛЗ помогите!!! Разработать функцию для решения задачи. На части катушки с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru