Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2011, 18:12   #1
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию Задание на языке Pascal

Помогите с решением, пожалуйста. Вот собственно и само задание: "Определите и выведите на экран количество чисел в промежутке от 13 до 100, которые делятся без остатка одновременно на 11 и 17."
Владимир Вайдер вне форума Ответить с цитированием
Старый 06.12.2011, 18:28   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

> до 100

вы издеваетесь? 11 и 17 — простые числа, НОК(11, 17)= 11*17=187
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 06.12.2011, 18:35   #3
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию

Такое задание мне дали в университете. Я учусь на первом курсе и с программированием у меня туго. Помогите написать эту программу, очень прошу.
Владимир Вайдер вне форума Ответить с цитированием
Старый 06.12.2011, 18:48   #4
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

да при чём тут программирование. Это в 4-том классе проходят. Нет таких чисел. Где-то опечатка в задании. Так, как оно сейчас сформулировано, ваша программа будет состоять их одной строчки:

Код:
begin 
  writeln(0); // доцент тупой
end.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 06.12.2011, 18:51   #5
MadeInUSSR
Новичок
Джуниор
 
Регистрация: 12.10.2011
Сообщений: 1
По умолчанию

Ну тут просто и тупо - цикл ОТ и ДО с проверкой:
делится число на два данных или нет...
MadeInUSSR вне форума Ответить с цитированием
Старый 06.12.2011, 19:00   #6
Sn0wSky
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 21
По умолчанию

Да что вы пристали, хочет студент числа, ну так пусть получает

Код:
var i:integer;
begin
for i:=13 to 100 do 
if (i mod 11=0) and (i mod 17=0) then
writeln(i)
end.
Sn0wSky вне форума Ответить с цитированием
Старый 06.12.2011, 19:02   #7
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию

Препод говорил, что опечатки нет и всё это можно написать. Хотя вполне возможно, что он не прав.
Владимир Вайдер вне форума Ответить с цитированием
Старый 06.12.2011, 19:03   #8
Sn0wSky
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 21
По умолчанию

Цитата:
Сообщение от Владимир Вайдер Посмотреть сообщение
Препод говорил, что опечатки нет и всё это можно написать. Хотя вполне возможно, что он не прав.
Нулевой ответ - тоже ответ

p.s. Но я согласен с мнением большинства, вы где-то что-то не так списали, или препод интервал не тот дал
Sn0wSky вне форума Ответить с цитированием
Старый 06.12.2011, 19:06   #9
Владимир Вайдер
Пользователь
 
Регистрация: 06.12.2011
Сообщений: 10
По умолчанию

Написал я все правильно. Значит буду препода винить))
Владимир Вайдер вне форума Ответить с цитированием
Старый 06.12.2011, 19:18   #10
Гуля Гульназ
 
Регистрация: 06.12.2011
Сообщений: 4
По умолчанию

Помогите пожалуйста! Работа в графическом режиме в Турбо Паскаль. у=-ln|2sin(x/2)| - надо чертить график.
Гуля Гульназ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Програмка на языке Pascal Tatyana Kur Помощь студентам 1 07.11.2011 22:36
Задача на языке Pascal, с массивами Bonni Помощь студентам 4 06.05.2011 10:39
лабораторное задание по дисциплине "Программирование на языке высокого уровня" (с++) Иван Савин Помощь студентам 2 01.01.2011 18:36
необходимо написать программу на любом удобном для вас языке,задание прилагается... Jewel.net Фриланс 6 08.06.2010 18:22
Формула на языке Pascal ViNcHeStEr Помощь студентам 9 03.07.2008 14:32