![]() |
Начальные контакты ТОЛЬКО через личку!!
![]() ![]() |
![]() |
svetaj6 |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Женский Реальное имя: Світална Репутация: ![]() ![]() ![]() |
знайти добуток парних чисел від 1 до 20.
будь ласка в паскалі скласти програму |
sheka |
![]()
Сообщение
#2
|
![]() Я. ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: ![]() ![]() ![]() |
Ги
![]() А у Вас хоч якісь спроби були? Якщо так - викладайте. |
TommyG |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Репутация: ![]() ![]() ![]() |
Можно по русски?
|
sheka |
![]()
Сообщение
#4
|
![]() Я. ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: ![]() ![]() ![]() |
Найти произведение четных чисел от 1 до 20.
|
TommyG |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Репутация: ![]() ![]() ![]() |
Код var i:integer; p:extended; begin p:=1; for i:=2 to 20 do if i mod 2=0 then p:=p*i; writeln('proizvedenie ravno=',p); readln end. Сообщение отредактировано: TommyG - 12.12.2010 20:21 |
sheka |
![]()
Сообщение
#6
|
![]() Я. ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: ![]() ![]() ![]() |
svetaj6, попытайся в следующий раз попробовать сделать сама
![]() var p,i:integer; |
volvo |
![]()
Сообщение
#7
|
Гость ![]() |
Вообще-то
1) это раздел "на заказ" 2) произведение получается больше 3.7 миллиарда, что не помещается не только в Integer, но даже и в Longint. |
TommyG |
![]()
Сообщение
#8
|
Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Репутация: ![]() ![]() ![]() |
2 поправил свой код.теперь выводит.
1 не думаю, что эта задача стоит каких то денег. Сообщение отредактировано: TommyG - 12.12.2010 20:22 |
![]() ![]() |
![]() |
Текстовая версия | 26.06.2024 22:01 |