Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.
По формуле а,(b)=a*(b/9)
75,(8)=75*(8/9)
39,(16)=39*(16/99)(а это а,(бс)=а*(бс/99)
Находим сумму:683/9+3877/99=11390/99=115(05)
Проверила несколько раз
Я считаю, что словами написано верное условие, в приведенном фрагменте ошибка: вместо x > 0 должно быть x >= 0
var x: integer;
begin
readln(x);
if x >= 0 then
x := x - 50
else
x := x + 100;
writeln(x)
end.
Пример ввода:
0
Пример вывода:
-50
1)
CLS
INPUT "a = ", a
INPUT "b = ", b
INPUT "c = ", c
D = b * b - 4 * a * c
IF D >= 0 THEN
PRINT "x1 = "; (-b + SQR(D)) / (2 * a)
PRINT "x2 = "; (-b - SQR(D)) / (2 * a)
ELSE
PRINT "Korney net"
END IF
a = 3
b = 7
c = 4
x1 = -1
x2 = -1.333333
2)
CLS
INPUT "N = ", N
FOR i = 1 TO N
S = S + i * (i - 2)
NEXT i
PRINT "S = "; S
N = 3
S = 2
Правельный ответ - г. Так как все остальные являются антивирусными программами.