Презентация, доклад на тему Программирование циклических алгоритмов

в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 5. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в по­сле­до­ва­тель­но­сти, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 5. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — мак­си­маль­ное число, крат­ное 5.
var i, n, x, max: integer;
begin
max:=0;
readln(n);
for i:=1 to n do begin
readln(x);
if (x mod 5 = 0) and (x > max) then max:=x;
end;
writeLn (max);
end.

чисел, оканчивающихся на 5. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел не­из­вест­но, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0.
Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех ­трехзнач­ных чисел, оканчивающихся на 5.
var x, s: integer;
begin
    s:=0;
    readln(x);
    while x<>0 do begin
        if (x mod 10 = 5) and (x > 99) and (x <1000) then  s := s + x;
        readln(x); end;
    writeln(s)
end.

Нахождение суммы чисел, отвечающих определенному условию, в вводимой последовательности чисел

ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел вы­чис­ля­ет количество всех трех­знач­ных чисел, оканчивающихся на 5. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел не­из­вест­но, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0.
Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число: количество всех ­трехзнач­ных чисел, оканчивающихся на 5.
var x, k: integer;
begin
    k:=0;
    readln(x);
    while x<>0 do begin
        if (x mod 10 = 5) and (x > 99) and (x <1000) then  k := k + 1;
        readln(x); end;
    writeln(k)
end.

про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел вы­чис­ля­ет среднее арифметическое всех трех­знач­ных чисел, оканчивающихся на 5. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел не­из­вест­но, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0.
Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число: среднее арифметическое всех ­трехзнач­ных чисел, оканчивающихся на 5.
var x, k, S: integer; SA: real;
begin
    k:=0; S:=0;
    readln(x);
    while x<>0 do begin
        if (x mod 10 = 5) and (x > 99) and (x <1000)
then begin  k := k + 1; S:= S + x end;
        readln(x) end;
SA := S / k;
    writeln(SA)
end.