Задачи на циклы. 6. Составьте программу, вычисляющую A*B, не пользуясь операцией умножения. А и B любое натуральное число. 7. Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется одна бактерия. Составьте программу, которая рассчитывает количество бактерий на заданное вами целое значение момента времени (15 минут, 7 минут и т.п.).

8. В 1202г. Итальянский математик Леонард Пизанский (Фибоначчи) предложил такую задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от которых через два месяца уже получается новый приплод, Сколько кроликов будет через год, если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие количеству кроликов, которые появляются через каждый месяц, составляют последовательность 1, 1, 2, 3, 5, 8, 13, 21, 37, … Составьте программу, позволяющую найти все числа Фибоначчи, меньшие заданного числа N.

9. Найти все трехзначные числа, сумма цифр которых равна данному целому числу.

10. Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Анна3672

05.12.2021 02:05

После того, как разразился мировой финансовый кризис, компьютерная мышка подумала, что стоит пробраться на склад и взять про запас для себя еще один коврик. Чтобы никто не...

АндрейЯсийчук

17.11.2021 22:57

Впрограмме паскаль. с строковых функций и процедур преобразуйте слово «русалки» в слово «красули»....

grofro228

17.11.2021 22:57

Описать процедуру trim(s), удаляющую в строке s начальные и конечные пробелы....

MarinaRaim26

06.09.2022 06:39

Сделайте программу, которая переводит значение температуры из градусов по шкале цельсия в градусы по шкале фаренгейта. напишите на pascal...

123Лёшка321

21.04.2023 22:21

Что осуществляется с этих трех действий: a=a+b b=a-b a=a-b a) нахождение суммы и разности двух переменных б) нахождение среднеарифметического двух переменных в) обмен значениями...

AsdZaKAsd

21.04.2023 22:21

Спо информатике: превратите одно слово в другое,всякий раз заменяя по одной буве так,чтобы новое слово было существительным в именительном падеже. а)=день б)=полк в)=коса...

123GEV

21.04.2023 22:21

Напишите программу, которая вычисляет сумму квадратов чисел от 1 до n. число n программа должна запрашивать у пользователя....

dmitriy14nagiev

21.04.2023 22:21

Установите правильную последовательность этапов обработки данных эвм...

Liner158

03.12.2020 00:29

Составить программу, которая генерирует 10 случайных чисел в диапазоне от -20 до 30,выводит эти числа на экран и вычисляет сумму отрицательных...

Секретик321321

03.12.2020 00:29

Записей в таблице по возрастанию или убыванию значения какого-нибудь поля...

Ответ:

Lidya777

25.01.2022 00:56

Объяснение:

1. 2D графика — область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента как для создания (синтеза) и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира, с целью дальнейшей её обработки и хранения.

2. 3D графика — раздел компьютерной графики, посвящённый методам создания изображений или видео путём моделирования объёмных объектов в трёхмерном пространстве. 3D-моделирование — процесс создания трёхмерной модели объекта. Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта. При этом модель может как соответствовать объектам из реального мира (автомобили, здания, ураган, астероид), так и быть полностью абстрактной (проекция четырёхмерного фрактала).

3. 3Ds Max, Autodesk Maya, LightWave, Blender.

4. это к сожалению не знаю...

0,0(0 оценок)

Ответ:

мамадочп4а

03.02.2022 15:19

// PascalABC.Net 3.0, сборка 1076
var
s,ss:string;
i,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
n:=Length(s); p:=Pos(',',s);
if p in [1..n-1] then begin
    ss:=Copy(s,p+1,n-p);
    n:=Length(ss); p:=Pos(',',ss);
    if p=0 then Writeln(ss)
    else Writeln(Copy(ss,1,p-1))
    end
else Writeln('*** Нечего выводить ***')
end.

Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679

Введите строку: 01234,45679101121314151617
45679101121314151617

Введите строку: 01234,
*** Нечего выводить ***

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку