Есть ответ 👍

Блок-схема: найти сумму четных чисел в интервале от 10 до 20

249
365
Посмотреть ответы 2

Ответы на вопрос:

11516118
4,4(73 оценок)

примерно так. можно ещё в начале задать s = 0


Var h,b,k,p,d: real; begin write('введите в, к, п: '); readln(b,k,p); writeln(' h','д': 8); h: =2; repeat     d: =100*h/(100-b)/(100-k)/p;       writeln(h: 1: 1,d: 10: 3);     h: =h+0.1     until h> 4.0001 {вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы} end.

Популярно: Информатика