В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Раисат432178
Раисат432178
09.12.2020 08:00 •  Информатика

Даны набор ненулевых целых чисел; признак его завершения - число 0. Найти сумму отрицательных чисел в исходном наборе. ( нужно построить алгоритм в виде блок схемы)​

Показать ответ
Ответ:
Frosterion
Frosterion
10.04.2023 18:07

Var

День,месяц:byte;

Begin

Write('№ дня = ');ReadLn(День)

Var C: = 365 - День

Write('№ месяца = ');ReadLn(Месяц);

Case Месяц of

2:C:=C-31;

3:C:=C-59;

4:C:=C-90;

5:C:=C-120;

6:C:=C-151;

7:C:=C-181;

8:C:=C-212;

9:C:=C-243;

10:C:=C-273;

11:C:=C-304;

12:C:=C-334

End;

if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')

else

Case C mod 10 of

1:Write('До нового года остался ',C,' день');

2..4:Write('До нового года осталось ',C,' дня');

0,5..9:Write('До нового года осталось ',C,' дней')

End

End.

0,0(0 оценок)
Ответ:
blubondovro0a
blubondovro0a
30.04.2023 08:48

900

Объяснение:

Для решения была использована программа на Паскале, которая будет ниже. Её суть заключается в переборе чисел от 1000 до 9999. с операции mod ищется остаток от деления на 10(т.е крайняя цифра), с операции div при делении на 1000 берёт первое число, и сравнивает их. Если цифры совпадают, она добавляет один в "общую копилку", т.е простой счётчик. В результате программа вывела 900.

program znania;

uses crt;

var a, b:Integer;

begin

for a := 1000 to 9999 do

begin

if (a mod 10)=(a div 1000) then

b:=b+1;

end;

writeln(b);

readln;

end.


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