Найти сумму корней квадратных из трёхзначных натуральных чисел?

Danilzhmykhov1 22 июл. 2020 г., 18:59:49

Var

a, b, c : integer ;

d, x1, x2, s : real ;

begin writeln ('ax ^ 2 + bx + c = 0') ;

write ('a = ') ; readln (a) ; write ('b = ') ;

readln (b) ;

write ('c = ') ; readln (c) ;

d : = sqr (b) - 4 * a * c ; if d < ; 0 then writeln ('Корней нет') else begin x1 : = ( - b + sqrt (d)) / (2 * a) ; x2 : = ( - b - sqrt (d)) / (2 * a) ; if x1 < ; > ; x2 then begin writeln ('x1 = ', x1) ; writeln ('x2 = ', x2) ; s : = x1 + x2 ; writeln ('s = ', s) ; end else writeln ('x = s = ', x1) ; end ; end.

МиссВинчестер 23 янв. 2020 г., 10:59:17 | 10 - 11 классы

Найти все числа, которые делятся на N среди :а)всех двузначных чисел ;б)всех трёхзначных чисел?

Найти все числа, которые делятся на N среди :

а)всех двузначных чисел ;

б)всех трёхзначных чисел.

МорНикЛана 7 апр. 2020 г., 21:24:00 | 10 - 11 классы

Как создать прогу для взламывания соц?

Как создать прогу для взламывания соц.

Сетей.

Artyomka31 11 мая 2020 г., 04:37:07 | 5 - 9 классы

Ребята помогите?

Ребята помогите!

Решать пыталась, но прога выводит ошибки!

Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред - них цифр, а само число делится на число А!

Lol5004 29 июн. 2020 г., 13:56:15 | 10 - 11 классы

Найти все числа, которые делятся на N средиа) всех двузначных чисел ; б) всех трёхзначных чисел?

Найти все числа, которые делятся на N среди

а) всех двузначных чисел ; б) всех трёхзначных чисел.

Krasavikus 21 мар. 2020 г., 22:23:31 | 5 - 9 классы

НАЙТИ СУММУ ЧЕТНЫХ ДВУЗНАЧНЫХ НАТУРАЛЬНЫХ ЧИСЕЛ?

НАЙТИ СУММУ ЧЕТНЫХ ДВУЗНАЧНЫХ НАТУРАЛЬНЫХ ЧИСЕЛ!

Лысыйй 16 апр. 2020 г., 23:32:43 | 5 - 9 классы

Найти сумму всех двухзначных четных натуральных чисел?

Найти сумму всех двухзначных четных натуральных чисел.

Aidi2000 19 июл. 2020 г., 00:40:52 | 5 - 9 классы

Найти сумму 23 первых натуральных чисел, которые при делении на 8 дают остаток 5?

Найти сумму 23 первых натуральных чисел, которые при делении на 8 дают остаток 5.

В паскаль.

Dfuu 9 сент. 2020 г., 09:06:36 | 10 - 11 классы

4. Описать функцию, возвращающую сумму чисел заданного трёхзначного числа?

4. Описать функцию, возвращающую сумму чисел заданного трёхзначного числа.

Протестировать созданную функцию на примере двух разных трёхзначных числах.

На с + +.

Матемк 8 мая 2020 г., 20:59:19 | 10 - 11 классы

Найти сумму 10 натуральных чисел (использовать цикл While)?

Найти сумму 10 натуральных чисел (использовать цикл While).

Akusha246 16 мар. 2020 г., 04:45:31 | 10 - 11 классы

Найти сумму всех трёхзначных чисел, кратных 77?

Найти сумму всех трёхзначных чисел, кратных 77.

Паскаль.

(использовать цикл while).