|
Вопрос # 5 102/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
даны натуральные числа от 20 до 50.Напечатать те из них, которые делятся на 5 или 7.
 |
Вопрос задала: Iren Key (статус: Посетитель)
Вопрос отправлен: 19 марта 2011, 10:17
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Ну, как-то так:
procedure proc;
const
X: array[0..10] of Byte = (20, 21, 25, 28, 30, 35, 40, 42, 45, 49, 50);
var
i: Integer;
begin
for i:= Low(X) to High(X) do
WriteLn(X[i]);
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 19 марта 2011, 10:24
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 20 марта 2011, 09:36; участников в обсуждении: 4.
|
puporev (статус: 2-ой класс), 19 марта 2011, 10:41 [#1]:
Или
for i:=20 to 50 do
if(i mod 5=0)or(i mod 7=0)then writeln(i);
|
|
|
min@y™ (статус: Доктор наук), 19 марта 2011, 10:51 [#2]:
Цитата (puporev):
Или
Мой код быстрее!  ))
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
19 марта 2011, 10:59: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором min@y™
|
|
Iren Key (статус: Посетитель), 19 марта 2011, 11:05 [#3]:
у меня получается....
|
|
|
min@y™ (статус: Доктор наук), 19 марта 2011, 11:10 [#4]:
Цитата (Iren Key):
у меня получается....
Если у тебя получается, то зачем задаёшь вопросы?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
puporev (статус: 2-ой класс), 19 марта 2011, 11:12 [#5]:
Мой код быстрее! ))
Это конечно так. Вычислить результат на счетах, а потом написать
write(25.36);
|
|
|
min@y™ (статус: Доктор наук), 19 марта 2011, 11:18 [#6]:
Цитата (puporev):
Это конечно так. Вычислить результат на счетах
Зачем на счётах? Я в уме вычислил и составил таблицу.
Во всех своих прогах, где только возможно, я делаю именно так. Если результат известен заранее, не надо нагружать процессор бесполезными вычислениями.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Егор (статус: 10-ый класс), 19 марта 2011, 18:36 [#7]:
Цитата (min@y™):
Мой код быстрее! ))
можно ещё быстрее:
writeln('20, 21, 25, 28, 30, 35, 40, 42, 45, 49, 50');
))
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
min@y™ (статус: Доктор наук), 20 марта 2011, 09:36 [#8]:
Цитата (Егор):
можно ещё быстрее:
ЖЖОШ, звирюга!!! )
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
