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

Напишите функцию, которая находит произведение цифр в десятичной записи числа в паскале abc.
Пример:
Введите число: 751
Количество цифр: 35

Показать ответ
Ответ:
mrsexobeat308
mrsexobeat308
13.03.2023 23:01

На Паскале:

program prog;

var

   a:array[1..20] of integer = (1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6);

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do if a[i]>3 then c:=c+1;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [1,3,2,5,3,2,1,3,5,2,6,3,5,6,2,3,4,5,7,6]

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')

Если нужно вводить температуру с клавиатуры:

На Паскале:

program prog;

var

   a:array[1..20] of integer;

   i,c:integer;

begin

   c:=0;

   for i:=1 to 20 do begin

       write('Введите температуру ', i, '-го дня: '); readln(a[i]);

       if a[i]>3 then c:=c+1;

   end;

   write('Количество дней с температурой воздуха больше 3 градусов: ', c);

end.

На Питоне:

c = 0

a = [int(input(f'Введите температуру {i+1}-го дня: ')) for i in range(20)]

print(a)

for i in a:

   if i > 3: c+=1

print(f'Количество дней с температурой воздуха больше 3 градусов: {c}')

0,0(0 оценок)
Ответ:
Искорка123456
Искорка123456
22.02.2023 17:20

ответ

Смотри объяснения ниже:

Объяснение:

1) Устанавливаешь отступы ползунками около листа

2)Вводишь свой текст

3)Нажимаешь на дискету с ручкой в меню, выбираешь нужную папку и сохраняешь под тем же именем

4)закрываешь WORD

5)В проводнике ишешь свою сохранку из пункта 3

6)кликаешь

7)Ентером ставишь абзатцы, как тебе кажется правильным

8)В начале первой строки ставишь ентер, на новой строке пишешь название текста

9)выделяешь заголовок, нажимаешь "главная", там где жирный, курсив, подчёркнутый (разные буквы), выбираешь подчёркивание

10) Нажимаешь на дискету со стрелочками

Первое задание выполнено!

На второе пока нет времени, может, потом добавлю

Прости за неудобства, сам устал

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