Найти сумму кратных...

Тема в разделе "Информатика", создана пользователем -=NuT=-, 21 фев 2010.

  1. -=NuT=-

    -=NuT=- New Member

    Найти сумму кратных 8 среди трех значных натуральных чисел
     
    -=NuT=-, 21 фев 2010
    #1
  2. qwerty112

    qwerty112 New Member

    Program primer;
    Var sum,i,n,ch:integer;
    Begin
    sum:=0;
    write(' skolko budet chisel? ');
    readln(n);
    for i:=1 to n do
    begin
    write('Vvedite chislo ',i,' : ');
    readln(ch);
    if ch mod 8 = 0 then
    sum:=sum+ch;
    end;
    writeln('SUMA chisel kratnyh 8 = ', sum);
    End.
     
    qwerty112, 21 фев 2010
    #2

Поделиться этой страницей

Наша группа