Sachak95
01.06.2021 03:53

(Среда прогр. КуМир) Составьте алгоритм, который:
а) запрашивает два числа и выводит их полусумму
б) запрашивает пять целых чисел и выводит квадраты этих чисел
в) запрашивает четыре вещественных числа a, b, c, d и с Чертёжника рисует отрезок от точки (a, b) до точки (c, d)
г) запрашивает три вещественных числа a, b, r и с чертёжника приближённо рисует окружность радиусом r с центром в точке (a, b)
д) запрашивает целое число n в диапазоне от 1 до ста и сообщает оно или нет

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
urkashkz777
28.06.2020 18:35

ответ: www.schools.it

Объяснение:

.com

коммерческие ресурсы

.net

ресурсы и организации связанные с сетью

.org

некоммерческие организации

.info

информационные узлы

.biz

ресурсы для бизнеса

.name

доменная зона для частных лиц с простой логикой: ваше имя — ваш домен

.aero

домен для членов Авиационного сообщества и их потребителей

.arpa

домен используемый исключительно для инфраструктуры интернета

.edu

ВУЗ-ы США

.int

международные организации

.gov

правительственные организации США

.mil

военные ведомства США

.coop

кооперативы и организации их обслуживающие

.museum

музеи, учреждения и частные лица, имеющие отношение к музейному делу

.mobi

сайты для мобильных устройств

.pro

домен верхнего уровня для сайтов, представляющих специалистов разных областей (инженеров, врачей, юристов…)

.tel

онлайн-визитка на базе DNS для автоматической генерации страницы с контактной информацией

.travel

индустрия путешествий, экскурсий и отдыха: турагентства, туроператоры и т.д.

0,0(0 оценок)
Ответ:
dulikosha20051
13.05.2023 22:01

program five;

var

 number, quantity: integer;

begin

 quantity := 0;

 read(number);

 while number > 0 do

 begin

   if (number mod 10 mod 5 = 0) then

     inc(quantity);

   number := number div 10;

 end;

 write(quantity);

end.

Объяснение:

program five;  // Название программы

var

 number, quantity: integer;  // Целочисленные переменные:

number - вводимое с клавиатуры число;quantity - количество цифр кратных 5.

begin  // Начало программы

 quantity := 0;  // Количество цифр = 0

 read(number);  // Ввод числа с клавиатуры

 while number > 0 do  // Пока значение переменной number > 0

 begin  // Начало цикла

   if (number mod 10 mod 5 = 0) then  // Если последняя цифра переменной number (number mod 10) при делении на 5 дает остаток 0, тогда

     inc(quantity);  // Прибавляем к переменной quantity единицу

   number := number div 10;  // Удаляем последнюю цифру числа

 end;  // Конец цикла

 write(quantity);  // Вывод ответа

end. // Конец программы

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