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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2007, 12:37   #1
Nividimka
 
Регистрация: 28.01.2007
Сообщений: 4
По умолчанию Лабороторка


использовать операторы цикла

1. Дано натуральное число n. Вычислить s=1!+2!+!+...n!(n>1)


2. Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр.


Памогите решить?
Nividimka вне форума Ответить с цитированием
Старый 28.01.2007, 13:12   #2
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

2) ответ = 900
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 28.01.2007, 21:31   #3
Malice
Пользователь
 
Регистрация: 28.01.2007
Сообщений: 27
По умолчанию

Цитата:
Сообщение от Virtson Посмотреть сообщение
2) ответ = 900
Скажем так, ответ =100*n, где n=[1..9]
Проверка:
Код:
 
var m,i,j:integer;
x,mo:extended;
begin
m:=0; mo:=0;
for j:=0 to 1 do
for i:=100 to 999 do begin
x:=(i/((i mod 10)+(i div 10) mod 10 + (i div 100) mod 10));
if x> mo then begin
mo:=x; m:=i; end;
if (j=1) and (mo=x) then writeln (i);
end;
end.
1-ая:
Код:
 
uses crt;
var i,x,s, n:longint;
begin
clrscr;
s:=0; x:=1;
readln (n);
for i:=1 to n do begin
x:=x*i;
s:=s+x;
end;
writeln (s);
end.
Malice вне форума Ответить с цитированием
Старый 31.01.2007, 13:47   #4
Nividimka
 
Регистрация: 28.01.2007
Сообщений: 4
По умолчанию

И что где тут врайтлен где ридлен нимогу понять как что и где писать??????
Nividimka вне форума Ответить с цитированием
Старый 31.01.2007, 18:36   #5
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

Цитата:
Сообщение от Malice Посмотреть сообщение
Скажем так, ответ =100*n, где n=[1..9]
Проверка:
Код:
 
...
mo:=x; m:=i; end;
if (j=1) and (mo=x) then writeln (i);
end;
end.
1-ая:
Код:
 
...
clrscr;
s:=0; x:=1;
readln (n);
for i:=1 to n do begin
x:=x*i;
s:=s+x;
end;
writeln (s);
end.
В первом примере чтение ненужно вообще...
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск