• Предмет: Информатика
  • Автор: Kvartalovilya
  • Вопрос задан 7 лет назад

Помогите пожалуйста! Составить программу для нахождения количества и суммы всех чисел, оканчивающихся на 4 на промежутке от 1 до 100. В паскале. Подробно , чтобы было понятно.

Ответы

Ответ дал: pokemanbr
0
program aaa;
var
   i,z,sum:integer;
begin
   sum:=0; //сумма чисел
   z:=0; //счётчик
   for i:=1 to 100 do
      if(i mod 10 = 4) then begin //проверка последней цифры, если 4,то прибавляем к счётчику единицу и к сумме число
         z:=z+1;
         sum:=sum+i;
      end;
   writeln(z,' ',sum); //Выводим ответ
end.
Ответ дал: pokemanbr
0
Во всей программе вместо "sum" напишите своё название
Ответ дал: pokemanbr
0
div - это деление нацело
mod - это остаток от деления
Ответ дал: Kvartalovilya
0
А вот в эту программу надо это писать?
Ответ дал: pokemanbr
0
Ну в if я использовал mod, чтобы определить последнее число у цифры
Ответ дал: Kvartalovilya
0
Ну короче, спасибо
Вас заинтересует