Регистрация
dianochka17dor
21.03.2020 02:32
Информатика
Есть ответ 👍

Решить, программа паскаль 1. для чисел равных 5 от 1 до n вывести квадрат числа,для остальных вывести "не кратно 5" 2.посчитать сколько из 15 произвольно веденных чисел,чисел больше 15 3. для любого количества произвольных чисел найти сумму положительных

207
293
Посмотреть ответы 2

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

anelochka
anelochka
4,6(2 оценок)
{кратность 5ти} var i, i1: integer; begin        readln(i1);         for i: =0 to i1 do            if (i mod 5 = 0) then                writeln(i, ': ', sqr(i))            else                  writeln(i, ': не кратно пяти'); end.{ больше 15-ти  }var i, b, c: integer; begin      for i: =1 to 15 do      begin          readln(b);           if (b > 15) then              c : = c + 1;       end;       writeln(c); end.const n=5; //любое кол-во: )var a: real;     i, count: integer; begin      for i: =0 to n-1 do      begin          readln(a);           if (a > 0) then              count : = count + 1;       end;       writeln(count); end.
Анюта4111111
Анюта4111111
4,8(95 оценок)
Уравнение вида a⋅x2 + b⋅x + c = 0 - квадратное уравнение.

a, b, c - действительные числа, a ≠ 0.

Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.

D = b2 - 4⋅a⋅c;

если D < 0, то квадратное уравнение не имеет корней;
если D = 0, то уравнение имеет один действительный корень(иногда говорят, что корней два, но они одинаковые):
x1 = x2 = -b / (2⋅a);
если D > 0, то уравнение имеет два действительных корня:
x1 = (-b + √D) / (2⋅a);
x2 = (-b + √D) / (2⋅a).

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