Регистрация
Жанниет
08.04.2021 10:46
Информатика
Есть ответ 👍

В массиве из 100 натуральных чисел до 300 найти те,которве заканчиваются на 8 на паскале написать

213
452
Посмотреть ответы 2

Ответы на вопрос:

анастасия1571
анастасия1571
4,5(79 оценок)

var

 cnt, i :integer;

 a : array[1..100] of integer;

 begin

   randomize;

   cnt := 0;

   for i := 1 to 100 do

     begin

     a[i] := random(300) + 1;

     write(a[i], ' ');

     if a [i] mod 10 = 8 then

       cnt := cnt + 1;

     end;

   writeln;

   writeln('Количество чисел, которые оканчиваются на 8: ', cnt);

 end.

sspamit
sspamit
4,8(7 оценок)
100. 49/7 = 7 (остаток 0. это последний ноль) 7/7 = 1 ( остаток 0, это второй ноль. а единица идет вперед)

Популярно: Информатика