Задание на языке Pascal

[Владимир Вайдер]

Помогите с решением, пожалуйста. Вот собственно и само задание: "Определите и выведите на экран количество чисел в промежутке от 13 до 100, которые делятся без остатка одновременно на 11 и 17."

[veniside]

> до 100

вы издеваетесь? 11 и 17 — простые числа, НОК(11, 17)= 11*17=187

[Владимир Вайдер]

Такое задание мне дали в университете. Я учусь на первом курсе и с программированием у меня туго. Помогите написать эту программу, очень прошу.

[veniside]

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

begin 
  writeln(0); // доцент тупой
end.

[MadeInUSSR]

Ну тут просто и тупо - цикл ОТ и ДО с проверкой:
делится число на два данных или нет...

[Sn0wSky]

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

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]

Сообщение от Владимир Вайдер

Препод говорил, что опечатки нет и всё это можно написать. Хотя вполне возможно, что он не прав.

Нулевой ответ - тоже ответ

p.s. Но я согласен с мнением большинства, вы где-то что-то не так списали, или препод интервал не тот дал

[Владимир Вайдер]

Написал я все правильно. Значит буду препода винить))

[Гуля Гульназ]

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