Найти сумму цифр, делящихся на 3 из промежутка [20; 40]

Var i,sum: integer;
Begin
sum:=0;
for i:=20 to 40 do
begin
if i mod 3=0 then
begin
writeln('Число: ',i);
sum:=sum+i;
end;
end;
writeln('Сумма чисел: ',sum);
End.

Алгоритм решения

Для начала давай посмотрим на года.

1. Если разница между годом рождения и текущим годом больше 16, мы однозначно можем сказать, что человеку уже есть 16.

2. Если разница между годом рождения и текущим годом меньше 16, мы однозначно можем сказать, что человеку ещё нет 16.

Если разница между годом рождения и текущим годом равна 16, мы можем сказать, что у человека день рождения в этом году. Давай глянем на месяц.

1. Если текущий месяц больше месяца рождения, человеку уже есть 16.

2. Если текущий месяц меньше месяца рождения, человеку ещё нет 16.

Если у человека день рождения в этом месяце, давай точно так же глянем на дни.

В итоге мы уже точно знаем, когда у человека день рождения.

Код решения

#include <bits/stdc++.h>

using namespace std;

int main() {

   int d1, m1, y1, d2, m2, y2;

   cin >> d1 >> m1 >> y1 >> d2 >> m2 >> y2;

   if (y2 - y1 > 16) {

       cout << "YES" << endl;

       return 0;

   } else if (y2 - y1 < 16) {

       cout << "NO" << endl;

       return 0;

   }

   if (m2 > m1) {

       cout << "YES" << endl;

       return 0;

   } else if (m2 < m1) {

       cout << "NO" << endl;

       return 0;

   }

   if (d2 < d1) {

       cout << "NO" << endl;

       return 0;

   }

   cout << "YES" << endl;

   return 0;

}

Файл решения прикреплён.

Правила организации личной информации в сети Интернет

старайтесь не заполнять анкеты данных в неизвестных чатах, социальных сетях,

не оставляйте встреченным в Интернете людям свой номер телефона, домашний адрес,

не отправляйте неизвестным людям свои фотографии,

общайтесь в программах Skype и им подобным только с друзьями,

не открывайте прикрепленные к письму файлы, полученные от незнакомых людей,

не разглашайте информацию о своем пароле

Правила безопасности в сети Интернет

не договаривайтесь о встрече с незнакомцами,

не отвечайте на недоброжелательные сообщения,

выходите из чата, если чье-то сообщение вызывает беспокойство,

будьте внимательны при загрузке бесплатных программ на компьютер,

если вы получили оскорбляющее сообщение, сообщение о нем родителям,

не поддавайтесь на заманчивые предложения,

не посещайте сайты для взрослых

Правила сетевого этикета

старайтесь выглядеть достойно в глазах собеседников,

пишите грамотно,

человек, с которым вы общаетесь, может быть не один,

сдерживайте страсти,

будьте терпимы к недостаткам окружающих