Даны 15 целых...

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

  1. ma3x

    ma3x New Member

    Даны 15 целых чисел. подготовить лист для определения количества чисел, которые оканчиваются цифрой5.
     
    ma3x, 23 фев 2010
    #1
  2. PrInceS

    PrInceS New Member

    Program Frank;
    const n=15;
    Type mas=array[1..n] of integer;
    var a:mas;i,k:integer;
    begin
    k:=0;
    for i:=1 to n do begin
    a:=i;
    if a mod 10=5 then k:=k+1;
    end;
    writeln('Кол-во чисел,которые заканчиваются на 5:= ',k);
    end.
    Програма работает,лично проверил) Написана на языке PASCAL
     
    PrInceS, 23 фев 2010
    #2

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

Наша группа