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

Составьте алгоритм возведения чётного числа в куб ,а нечётного в квадрат

👇
Ответ:
daniil6092002
daniil6092002
14.09.2022
Обозначения выражений копируют синтаксис Pascal.

x mod 2 = 0 служит проверкой на четность (остаток от деления на 2 равен нулю, только если число четное)
4,5(34 оценок)
Открыть все ответы
Ответ:
tigranpesoz3twi
tigranpesoz3twi
14.09.2022

Алгоритм – точное предписание исполнителю совершить последовательность действий для достижения поставленной цели за конечное число шагов.

Исполнитель решает задачу по заданному алгоритму, строго следуя по предписаниям (программе) не вникая и не рассуждая, почему он так делает.

Исполнитель алгоритма – человек или устройство выполнить определённый набор команд.

Последовательность написания алгоритмов:

1. Поставить задачу

2. Придумать список команд для исполнителя(СКИ)

3. Составить алгоритм из СКИ

Пример:

Задача: Напишите для робота - повара алгоритм приготовление чая

СКИ: налить кипяток, помешать, налить молоко, насыпать сахар, насыпать заварку.

Алгоритм :

> насыпать заварку  > налить кипяток  > насыпать сахар > налить молоко  > помешать

4,6(31 оценок)
Ответ:
kamilahamidova
kamilahamidova
14.09.2022

var

   i: Integer;

   l: Single;

   counter: Integer;

begin

 counter := 0;

 for i := 0 to 14 do begin

   Read(l);

   if l >= 165 then

       counter := counter + 1 ;

 end;

 Writeln(counter);

end.

Второй вариант

const

 cN: Integer = 15;

 cMinSuitableLength: Single = 165;

var

 arr: array [0..14] of Single;

 i, counter: Integer;

begin

 for i := 0 to Length(arr) - 1 do

   Read(arr[i]);

 counter := 0;

 for i := 0 to Length(arr) - 1 do

   if arr[i] >= cMinSuitableLength then

     counter := counter + 1;

 Writeln(counter);

end.

Объяснение:

4,4(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ