profile
Опубликовано 5 лет назад по предмету Информатика от апплпкпщкп

Напишите на языке Паскаля!!!С клавиатуры вводится числа пока не введётся 0;посчитать кол-во чисел оканчивающихся на 7.

  1. Ответ
    Ответ дан Аккаунт удален
    На языке Блеза Паскаля, французского философа и математика:

    var n:integer; count:integer;
    begin
      repeat
        writeln('Tapez les numéros: ');
        readln(n);
        if n mod 10 = 7 then count:=count+1;
      until n=0;
      writeln(count, ' se terminant "7"');
    end.