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

Завдання в лазарусе "Кольори Веселки"

👇
Открыть все ответы
Ответ:
hamov1408p06m04
hamov1408p06m04
16.08.2022

Считываем число, затем с операций нахождения остатка от деления(для этой цели берем остаток от деления на 10) и деления нацело(тоже на 10) находим из каких цифр состоит число(для начала нужно взять модуль числа), затем сравниваем эти цифры, если они равны, то выводим сообщение: "Число состоит из одинаковых цифр", в ином случае: "Число не состоит из одинаковых цифр".

P.S. Для "овер" умных знатоков чтобы найти вторую цифру мы используем деление с остатком на 10, а для нахождения первой цифры мы используем целочисленное деление на 10.

4,7(42 оценок)
Ответ:
KPY3
KPY3
16.08.2022

var

i, x: integer; // объявляем переменные целочисленного типа.

y, sum : real; // объявляем переменные вещественного типа.

begin

y := 10; // пробег спортсмена в первый день.

while i < 6 do // в цикле определяем пробег спортсмена со 2-го по 7-й день.

begin

y := y + (y / 100 * 10); // пробег спортсмена за i-й день.

sum := sum + y; // считаем сумму километров.

i := i + 1; // счетчик дней недели.

end;

write ('В сумме за 7 дней спортсмен пробежал: ',round(sum + 10,2), ' км.'); //вывод на экран.

end.

Объяснение:

Вбей в Паскале с WHILE

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