4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.
Var t:array[1..10] of integer;i,q,k:integer;
begin
for i:=1 to 10 do
read(t[i]);
for i:=1 to 10 do begin
read(q);
k:=k+t[i]*q;
end;
writeln('Общая стоимость: ',k);
end.
Паскаль АВС:
<span>
Числа a и b имеют разную четность.
if (a mod 2) <> (b mod 2) then
Одно из чисел a и b положительно.
</span><span><span>if (a >0) or (b >0) <span>then
</span></span>Одно из чисел a и b является квадратом другого.
if (a=b*b) or (b=a*a) then
Точка A(x,y) принадлежит первому или второму квадранту.
</span><span><span>if (y >0) <span>then
</span></span>Число a не больше среднего арифметического чисел b, c, d.</span>
<span>if (a <= (b+c+d)/3) <span>then</span></span>
Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>
Тактильная вроде... Этр когда касаешься чего-либо