Pascal

[puella]

Пошощь студентам

Добавлено через 10 минут
Спасите,Помогите с решением задач пожааааааааааалуйста:
while:
1. Дано целое число n>0. Определить имеются ли в записи числа и нечётные цифры.
2. Дано вещественное число e>0. Последовательность вещественных чисел задана формулой а1=2, ак=2+1/ак-1; к=1,2... Найти первый из номеров к для которых выполняется условие [ак-ак-1]<e. Вывести этот номер а так же числа ак-1 и ак.
3. Дано целое число n>0. Вывести наибольшее из целых чисел К для которых сумма 1+2+...+К <=n и саму эту сумму.
For:
1. Дана последовательность n чисел. Получить номер первого наибольшего из чисел, а так же среднее арифметическое всех этих чисел.
Спасибо зарание!!!

[Mirovingin19]

Тебе еще надо решать эту задачу? Если что, пиши или тут или в личку - помогу

[AleksandrH]

1.
var
i,n : string;
s : string;
BEGIN
WriteLn('Input N') ; Readln(N);
Str(n,s);
While i <> LEngth(s) do
begin
if s[i] mod 2 <> 0 then begin writeLn('Est Ne4etnyi 4isla'); break; end;
inc(i);
end;
END.

Програма усовершенствуется добавление парЫ строк ;)

[Duke_Nukem]

Гы
AleksandrH, алгоритмы в голове ещё работают.

Я после вэб-а мин 5 втыкал в задание, пока не увидел ответ.

[AleksandrH]

o_O Куда именно втыкал???
"Нипанятна" (с)

[vii86]

var
sum,n,k: integer;
BEGIN
Write('Input N: ') ; Readln(N);
sum=0;
k:=1;
While n > sum do
begin
inc(k);
sum=sum+k;
end;
dec(k);
sum=sum-k;
writeln('k=',k,'; summa=',sum);
readln();
END.

Вроде бы так, если я правильно понял задание