|
Вопрос # 5 101/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
помогите пожалуйста с задачей.
Найти произведение двузначных нечетных чисел,кратных 13.
 |
Вопрос задала: Iren Key (статус: Посетитель)
Вопрос отправлен: 19 марта 2011, 09:48
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, Iren Key!
Код программы в приложении.
Приложение: Переключить в обычный режим- var k:integer;
- p:real;
- begin
- p:=1;
- k:=13;
- while k<99 do
- begin
- p:=p*k;
- k:=k+13;
- end;
- write('P=',p:0:0);
- readln;
- end.
-
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 19 марта 2011, 10:00
|
Ответ #2. Отвечает эксперт: min@y™
Здравствуйте, Iren Key!
Mult:= 13 * 39 * 65 * 91; { = 2998905 }
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 19 марта 2011, 10:09
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 19 марта 2011, 13:47; участников в обсуждении: 3.
|
|
min@y™ (статус: Доктор наук), 19 марта 2011, 10:08 [#1]:
Цитата (puporev):
Код программы в приложении.
Код неверный.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
puporev (статус: 2-ой класс), 19 марта 2011, 10:31 [#2]:
Mult:= 13 * 39 * 65 * 91;
А 26, 42, 52, 78?
|
|
|
puporev (статус: 2-ой класс), 19 марта 2011, 10:31 [#3]:
А там только нечетные!!! Лажанулся...
|
|
|
puporev (статус: 2-ой класс), 19 марта 2011, 10:33 [#4]:
var k:integer;
p:real;
begin
p:=1;
k:=13;
while k<99 do
begin
p:=p*k;
k:=k+26;
end;
write('P=',p:0:0);
readln;
end.
|
|
|
min@y™ (статус: Доктор наук), 19 марта 2011, 10:35 [#5]:
Цитата (puporev):
А там только нечетные!!! Лажанулся...
Молодец, прочитал и понял задание! Правда, не с 1-го раза...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
19 марта 2011, 10:58: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором min@y™
|
Толяныч (статус: 4-ый класс), 19 марта 2011, 13:47 [#6]:
Iren Key:
И кто только такие бессмысленные задачки студентам ( школьникам ) задает ? Если это на операторы повтора, то как у min@y - все в одну строчку и никаких повторов. Если это упражнение для устного счета - то при чем здесь Паскаль ?
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
