• Составьте программу.С клавиатуры вводится 15 чисел,сколько из них оканчивается на 4

Ответы 1

  • Var   A:integer;   k,n:integer;BeginWrite('Введите 15 чисел: ');k:=0;For n:= 1 to 15 do    Begin    Read(A);    if Abs(A) mod 10 = 4 then k:=k+1     End;WriteLn('Количество чисел, оканчивающихся на 4: ',k);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years