While and repeat

[Linker88]

1.Вводится последовательность целых чисел .0-конец последовательности.Определить наибольшее из всех чисел,кратных 5.
2.Вводится последовательность целых чисел .0-конец последовательности.Определить сколько раз последовательность меняет знак с "+" на "-".
3.Вводится последовательность из 10 чисел.Определить,сколько чисел меньше 7 расположено в самом начале последовательности.
4.Подсчитать количество цифр в десятичной записи неотрицательного числа n.

Оператор FOR
1.Проверить является ли введенное число Х простым.
2.Дано натуральное число а.Определить является ли оно совершенным.Совершенное число а равно сумме всех своих делителей
не превосходящих n.

[RIO]

Обращайтесь в асю помогу 371824579

[Miller-1981]

Готов помочь 340553273

[Linker88]

кто может киньте наработки сюды

[Aristarh Dark]

раз

var
  x,max:integer;
begin
  max:=5;
  repeat
    readln(x);
    if (x mod 5 = 0) and (x>max) then
      max:=x;
  until x=0;
  writeln(max);
  readln;
end.

три

var
  i,x,counter:integer;
  _break:boolean;
begin
  counter:=0;
  _break:=false;
  for i:=1 to 10 do
    begin
      readln(x);
      if not(_break) and (x<7) then
        inc(counter)
      else
        _break:=true;
    end;
  writeln;
  writeln(counter);
  readln;
end.

Если хочешь остальные, стучись 218413697, обговорим стоимость.