var
a, b, c, D: real;
begin
write('A= ');readln(a);
write('B= ');readln(b);
write('C= ');readln(c);
D := b * b - 4 * a * c;
if D < 0 then
writeln('Нет корней')
else
if D = 0 then
writeln('x1=', -b / (2 * a))
else
if D > 0 then
begin
writeln('x1= ', (-b - sqrt(d)) / (2 * a));
writeln('x2= ', (-b + sqrt(d)) / (2 * a));
end;
end.
3+25+125-36=117 (117-3)=285
8+25+125-36=122 (122-8)=285
12+25+125-36=126 (126-12)=285
но все эти выражения равносильны 114*2.5, т. к. ты сначала прибавляешь задуманное число, а потом его же вычитаешь
Это что за шифр?log без параметров не используется
Ответ: Алгоритм будет прибавлять +1 к числу 200 если остаток ответа 200/17 не будет равен 0.
Объяснение:
Var
a:array[1..1000]of integer;
i,n,k,c,q:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 10 = 4) then
begin
k:=a[i];
c:=0;
while k>0 do
begin
c:=c + k mod 10;
k:= k div 10;
end;
if c mod 3 = 0 then
q:=q+1;
end;
end;
writeln(q);
end.