М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
анг26
анг26
05.10.2022 04:45 •  Информатика

Информация о среднесуточной температуре воздуха за месяц в виде массива . определите и выведите на экран сколько раз температура была ниже среднемесячной информатика

👇
Ответ:
Эзоз
Эзоз
05.10.2022

var

a:array[1..30] of real;

average,s:real;

i,x:integer;

begin

for i:=1 to 30 do

begin

read(a[i]);

s:=s+a[i]

end;

average:=s/30;

for i:=1 to 30 do

if a[i]<average then x:=x+1;

writeln(x)

end.

4,8(15 оценок)
Открыть все ответы
Ответ:
elizaveta4256
elizaveta4256
05.10.2022

3d моделирование – построение модели изделия в профессиональных графических программа. Трехмерное моделирование включает следующую последовательность действий: создание примитивной формы; проработка мелких деталей; сглаживание форм.

Текстурирование – процесс наложения текстур на модель для придания ей реалистичности.

Настройка освещения, сцены окружения, выбор точки наблюдения и настройка камер, добавление дополнительных эффектов.

Подготовка 3D модели к печати.

Настройка 3д-принтера.

Печать 3д.

Постобработка готового изделия.

Каждый этап имеет свои особенности и сложности. Рассмотрим подробнее как подготовить 3д модель к печати

4,5(76 оценок)
Ответ:
макс17281
макс17281
05.10.2022
Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  
4,6(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ