Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2)program nah;
var s: string;
begin
s: = 'рэки,горы и '; (присвоение значения)
writeln (s); (вывод)
delete (s, 5,6); (удаление из строки s начиная с 5-го символа 6) символа)
writeln(s); (вывод результата)
end.
решение будет выглядеть так
рэки, горы и
рэки и
прости что не решила
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
один, два, три, четыре, пять
12345
дано:
g= 44,1 кгц= 44100 гц
i= 16 бит
t=2 мин=120 сек
v-?
решение:
v=g*i*t
v= 44100гц*16 бит*120 сек= 8467200 бит
v= 8467200/8*1024*1024= 10 мбайт
Популярные вопросы