Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 75

Студенческие приметы

22.11.2017, 17:51. Показов 1721. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для того, чтобы успешно сдать экзамен существует ряд проверенных способов. Одним из самых надежных является: идя на экзамен, следует в обувь под пятку положить монетку.
Студент Леша решил проверить данную примету. После поездок за рубеж у него осталось несколько образцов иностранных валют. По-этому, идя на очередной экзамен, он поочередно подкладывал в обувь то российский рубль, то американский доллар, то датскую крону, то испанский песо. В результате было получено четыре разных оценки.
Определить какую валюту он будет использовать в очередной сессии в первую очередь, и какой валютой уже больше никогда не воспользуется.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.11.2017, 17:51
Ответы с готовыми решениями:

Приметы
Что вы о них думаете, верите ли??? Пишем кто какие знает!!!! Типа таких: если жена смеётся над шутками мужа -- значит в доме гости :) Можно...

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

Аковы приметы правонарушителя?Написать программу.
Решите такую задачу. Показания свидетелей правонарушения значительно различались. Первый свидетель сказал, что преступник был брюнет с...

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
22.11.2017, 18:59
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Можно так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
type ekz=record
         mon:string;
         ocn:byte;
         end;
var a:array[1..4] of ekz;
    j,k:byte;
    m:set of byte;
begin
randomize;
a[1].mon:='рубль';
a[2].mon:='доллар';
a[3].mon:='крона';
a[4].mon:='песо';
m:=[];
for var i:=1 to 4 do
 begin
  repeat
  k:=2+random(4);
  until not(k in m);
  a[i].ocn:=k;
  m:=m+[k];
 end;
writeln('---------------');
writeln('|Валюта|Оценка|');
writeln('---------------');
for var i:=1 to 4 do
writeln('|',a[i].mon:6,'|',a[i].ocn:4,'  |');
writeln('---------------');
j:=1;
k:=1;
for var i:=2 to 4 do
if a[i].ocn>a[j].ocn then j:=i
else if a[i].ocn <a[k].ocn then k:=i;
writeln('В первую очередь будет использовать валюту ',a[j].mon);
writeln('Больше никогда не использует валюту ',a[k].mon);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.11.2017, 18:59
Помогаю со студенческими работами здесь

Студенческие стипендии
Дорогие студенты!!! Очень интересно узнать размер Вашей стипендии не зависимо от страны в местной валюте. Хочеться узнать, где студентам...

Студенческие годы. Where
При выполнении данного запроса. WHERE(((.)&lt;(SELECT AVG() FROM ))); Выдает ошибку &quot;Ошибка синтаксиса во введенном выражении, или...

Дифференциальные уравнения (студенческие)
Добрый день, уважаемые форумчане! Не могли бы Вы помочь в решении диф.ур, т.к мне они не совсем понятны, а время поджимает, попытаюсь...

Логическая задача "Приметы"
Помогите найти ошибку. Вот задача: Валя, Галя, Маша и Саша успешно сдали свои экзамены по выбору. Для большей уверенности в отличном...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru