Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
gergines
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 3
#1

На полке n книг. - Turbo Pascal

09.05.2012, 20:36. Просмотров 355. Ответов 1
Метки нет (Все метки)

1) Дана стоимость 1 кг сыра. Сколько будет стоить 100г, 200г, и т.д
2) На полке n книг. 1 книга стоит х рублей, а последующая в 2 раза больше. Сколько стоит каждая книга отдельно и все книги вместе?
3) Дано n-натуральное число. Вычеслить сумму умноженную на -1^e/e+1
Помогите пожалуйста!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2012, 20:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос На полке n книг. (Turbo Pascal):

Создайте файл каталог книг. Найдите специальность, по которой имеется наибольшее число книг
Файл « Каталог книг » ( Создайте этот файл ). Структура записи: - Автор (40...

Купить K наименований книг так, чтобы заявка была удовлетворена по количеству приобретаемых разных книг
Помогите решить? Вечером выложу наработки. 2.3.10. В библиотечном коллекторе...

Создать класс книг
type // ------------------------------------------------ ----- класс книги...

Найти среднюю стоимость k книг
Помогите решить! Найти среднюю стоимость k книг. Исходные данные: k\epsilon...

Определить количество самых дешевых книг
В массиве хранится информация о стоимости каждой их М книг. Определить...

Найти количество книг указанного автора
Пожалуйста, помогите моей подруге сделать следующую задачу на Паскале:...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
09.05.2012, 21:28 #2
Лучший ответ Сообщение было отмечено gergines как решение

Решение

Цитата Сообщение от gergines Посмотреть сообщение
1) Дана стоимость 1 кг сыра. Сколько будет стоить 100г, 200г, и т.д
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses crt;
Var
kg,t:Integer;
Begin
Clrscr;
Writeln('Введите стоимость 1 кг сыра: ');
Readln(kg);
t:=100;
Repeat
Writeln('Стоимость ',t,' г. сыра: ',t*kg/1000:2:2);
inc(t,100);
Until t=1100;
Readln
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2012, 21:28
Привет! Вот еще темы с решениями:

Вывести список и количество выданных книг читателю Х
Нужно создать программу а в ней модуль по поиску. То есть Создать файл,...

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

Выдать список книг В. Пикуля, хранящихся в библиотеке
Помогите решить!!! Опишите, используя структуру данных запись, каталог книг в...

Распечатать список книг отсортированных по алфавитному тиражу.
Очен нужно! Срочно! Название книг, автор, год издания, тираж, выявленных...


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

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

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