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

Решить 2 задачи с использованием всех трех видов циклов

Задача 1 Посчитать итоговую сумму денег на банковском вкладе за N лет при P процентах годовых.

Эту задачу решить с трех типов циклов. Но используя цикл с предусловием или с постусловием, переменная, определяющая условие, работает как счетчик (наращивается на 1). Поэтому решение этой задачи с цикла со счетчиком является наиболее коротким.

Задача 2 Найти сумму квадратов всех натуральных чисел от 1 до 100. Решим эту задачу с использованием всех трех видов циклов.

I. С использованием цикла "Пока".

II. С использованием цикла "До".

III. С использованием цикла "С параметром".
Заранее

👇
Ответ:
selemenevakrist
selemenevakrist
22.07.2021

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение:

4,6(47 оценок)
Открыть все ответы
Ответ:
Zagonov
Zagonov
22.07.2021

var a:String;

   i,sum:Integer;

begin

 writeln('Введите последовательность чисел:');

 readln(a);

 a := a.Replace(' ', '');

 writeln('Количество чисел:' + a.Length);

 for i := 1 to a.Length do

   sum := sum + strToInt(a[i]);

 writeln('Сумма: ' + sum);

end.

Объяснение:

В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.

Ввод:

1 2 3 4 5

Вывод:

Количество чисел: 5

Сумма: 15

4,4(68 оценок)
Ответ:
Крахмал16
Крахмал16
22.07.2021

var a:String;

   i,sum:Integer;

begin

 writeln('Введите последовательность чисел:');

 readln(a);

 a := a.Replace(' ', '');

 writeln('Количество чисел:' + a.Length);

 for i := 1 to a.Length do

   sum := sum + strToInt(a[i]);

 writeln('Сумма: ' + sum);

end.

Объяснение:

В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.

Ввод:

1 2 3 4 5

Вывод:

Количество чисел: 5

Сумма: 15

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