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

На python
(это 1 файл с римскими числами)

Показать ответ
Ответ:
Marat445372
Marat445372
16.04.2022 18:56

№ 1) Найти площадь поверхности куба со стороной а.

№2) Написать алгоритм нахождения максимального среди четырех целых чисел.

№3) Среди чисел а, b, c определить количество положительных.

См. картинки.

Объяснение:

№1) Определяем целые переменные S, a

Пользователь вводит значение переменной а

Расчёт поверхности по формуле S = 6*a^2 присваиваем переменной S

Вывод переменной S

№2) Здесь определение наибольшего числа осуществляется при разветвляющегося алгоритма:

Если [условие выполняется], то [следует действие 1], иначе [действие 2].

№3) Операция mod находит дробную часть введённого числа.

Например, если 23 : 2, то 11 - целая часть, 0,5 - дробная.

Запись а mod 2 = 0, означает, что программа сравнивает остаток с нулём. Если остаток - нуль, то число чётное (делиться на 2 без остатка).

Записываем значение в переменную i, увеличивая счётчик.


Построить блок-схемы алгоритмов для каждого . найти площадь поверхности куба со стороной а. написат
Построить блок-схемы алгоритмов для каждого . найти площадь поверхности куба со стороной а. написат
Построить блок-схемы алгоритмов для каждого . найти площадь поверхности куба со стороной а. написат
0,0(0 оценок)
Ответ:
Lisaezhik
Lisaezhik
26.10.2020 10:55

const N = 100;

var a: array [1..N] of integer;  

       i, count, sum, p: integer;

       arith: real;

       mult: biginteger;

       

begin

       randomize;

       for i:= 1 to N do a[i]:= random(1, 1000);

       

       sum:= 0;

       

       for i:= 1 to N do begin

           if a[i] mod 2 = 0 then begin

               inc(count);

               sum:= sum + a[i];

               arith:= sum / count;

           end;

           if a[i] mod 2 = 0 then begin

               p:= a[i] * a[i];

               if mult = 0 then mult:= p else mult:= mult * p;

               // Произведение капец длинное

               if a[i] mod 3 = 0 then a[i]:= i * i;

           end

       end;

       

      writeln(arith);

      writeln(mult);

end.

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