Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2017, 10:55   #1
Дарья Волкова
 
Регистрация: 04.05.2017
Сообщений: 3
По умолчанию Какой цифрой оканчивается сумма всех двузначных чисел, в записи которых имеется хотя бы одна цифра 3. (помогите, пожалуйста)

1. Какой цифрой оканчивается сумма всех двузначных чисел, в записи которых имеется хотя бы одна цифра 3.
Дарья Волкова вне форума Ответить с цитированием
Старый 04.05.2017, 11:14   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Код:
var sum, i,j : integer;
begin
  sum := 0;
  for i:=1 to 9 do
    for j:=0 to 9 do
      if (i=3) or (j=3) then sum := sum + (i*10+j);
  WriteLn('Последняя цифра в сумме = ', sum mod 10)
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13 (с подпрограммой). Анастасия0 Помощь студентам 1 19.12.2016 20:38
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13. Анастасия0 Помощь студентам 1 19.12.2016 19:06
среди всех n-значных чисел указать те сумма цифр которых равна данному числу k. (C#) Гузель23 Помощь студентам 2 03.03.2013 20:07
Delphi:Определить имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел. Skvot Помощь студентам 6 27.04.2009 11:47