rakhmanets
05.12.2020 16:10

Напечатайте в столбик следующие числа

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
КастрюлькаПик
28.07.2021 23:47

Калькулятор дней между двумя датами может использоваться в самых различных ситуациях. К примеру, хотите узнать, сколько дней вы прожили? Введите дату своего рождения и сегодняшнюю дату в калькулятор и вы узнаете результат. Предположим, что вы родились 2 декабря 1984 года, а сегодня 17 ноября 2015. Если ввести эти даты в калькулятор дней, то он выдаст ответ — вы прожили 11 307 дней. Кстати, узнать в какой день недели вы родились можно здесь.

Иногда интересно узнать сколько дней с памятного события. Все мы знаем, что Великая Отечественная война завершилась 9 мая 1945 года. С калькулятора легко определить, что с момента окончания ВОВ дней (учитывая, что сегодня 17 ноября 2015 года). Если же преобразовать эту цифру в годы и месяцы, то — 70 лет 6 месяцев и 8 дней.Можно также определить сколько длилась ВОВ. Если мы введем дату начала войны 22 июня 1941 года и дату ее окончания 9 мая 1945 года, то узнаем, что Отечественная война длилась 1417 дней. При этом началась она в воскресенье, а закончилась в среду.




Напишите программу калькулятор дат,которая выводит календарь на любой год, подсчитывает количества
0,0(0 оценок)
Ответ:
rabramchik
19.12.2021 02:14

Program Sarumyana;
const n=10;
var a:array[1..n] of integer;
tri, nol, odd, i: integer;
  begin
  writeln('*** alphaues is thinking... ***');
  tri:=0;
  nol:=0;
  odd:=1;
  for i:=1 to n do
  begin
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i] mod 3 = 0 then tri := tri + a[i];
    if a[i] = 0 then nol := nol + 1;
    if i mod 2 = 1 then odd := odd * a[i]
  end;
  write('Строка чисел: ');
  for i:=1 to n do
  begin
    write(a[i],' ');
  end;
   writeln();
   writeln('Сумма элементов, кратных 3, равна ',tri);
   writeln('Количество нулевых элементов = ',nol);
   writeln('Произведение элементов, стоящих на нечётных местах, = ',odd);
end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота