4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.
program n_1;
var S:integer;
begin
S:=(sqr(2)+sqr(4)+sqr(6)+sqr(8)+sqr(10));
writeln(S);
end.
sqr(i) - sqr это возведение числа во вторую степень, а i само число
<span>В СЛОВЕ МЕГАБАЙТ 64 бита, т. к. каждая буква - 1 байт, а в каждом байте 8 бит</span>
А самому, не?
1. def func():
i, summ = 0,0
while i < 5:
i += 1
x = int(input())
if (x % 4 == 0) and (x % 10 == 6):
summ += x
print(summ)
func()
2.def speed():
n = int(input())
i = 0
maxSpeed = 0
text = 'NO'
while i < n:
i += 1
x = int(input())
if x < 30:
text = 'YES'
elif x > maxSpeed:
maxSpeed = x
print(maxSpeed, text)
speed()
//PascalABC
var
a, b, c, P, S : real;
begin
write('Введите длину стороны A> ');
readln(A);
write('Введите длину стороны B> ');
readln(B);
write('Введите длину стороны C> ');
readln(C);
writeln('Вычисление по формуле Герона');
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника S = ', S);
end.