Найти сумму и...

Тема в разделе "Информатика", создана пользователем igor valenin, 16 фев 2010.

  1. igor valenin

    igor valenin New Member

    Найти сумму и произведение черных чисел от 20 до С (for)
     
    igor valenin, 16 фев 2010
    #1
  2. -=_Alex_=-

    -=_Alex_=- New Member

    Program fo;
    var z,x,c,i:integer;
    beginwriteln('Введите c')
    ;readln(c);
    z:=0 ;
    for i:=20 to c do
    if i mod 2=0 then
    z:=z+1;
    writeln(z);
    end.
     
    -=_Alex_=-, 16 фев 2010
    #2

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

Наша группа