Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в не указан шаг изменения x , допустим он равен 1
var
x,y: real;
begin
x: =1;
while x< =10 do
y: =1/x-5;
writeln(y: 8: 2);
x: =x+1;
end;
end.
var s: string;
begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.
1)
германия берлин
греция афины
испания мадрид
польша варшава
франция париж
2)
44100*24*60*2=127008000 бит = 15 мбайт
Популярные вопросы