2 var 3 s: string; 4 begin 5 readln(s); 6 while pos('с',s)> 0 do delete(s,pos('с',s),1); 7writeln(s); 8 end.это точно
Ответ дал: Гость
program xxx;
var i, n : integer
d : array[1..30] of real;
begin
write ('введите разметность массива n=');
readln(n);
writeln(''введите элементы массива d: ');
for i: =1 to n do
readln(d[i]);
writeln ('исходный массив d: ');
for i: =1 to n do
write(d[i]);
for i: =1 to n do
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
for i: =1 to n do
write(d[i]);
readln
end.
Ответ дал: Гость
интерфейс, ёмкость, размер, время произвольного доступа, скорость вращения шпинделя, надежность, количество операций ввода-вывода в секунду, потребление энергии, сопротивляемость ударам, скорость передачи данных, объем буфера.
(жирным шрифтом для всех, обычным для жестких, флеш и тд.)
Ответ дал: Гость
смотря откуда эта формула и как вы ее применяете
похоже, что пи - просто функция без аргументов, т.е. ничего ставить не надо
Популярные вопросы