Создать программу которая позволяет рассчитать по фомуле энергию. (Закон сохранения энергии где ь-масса, v-скорость к-коэффицент жёсткости х-смещение НАД.Заранее

218

313

Посмотреть ответы 1

Ответы на вопрос:

Viktori1111112111

Информатика

4,4(27 оценок)

Если предполагается, что фио вводится на одной строке через пробел, то первая программа будет такой: var fio,s,f,i: string; p: integer; begin writeln('введите фио'); readln(fio); p: =pos(' ',fio); s: =copy(fio,1,p-1)+'-'+fio[p+1]; delete(fio,1,p); p: =pos(' ',fio); s: =s+fio[p+1]; writeln(s); end.программа для 2 : var s: string; i: integer; beginwriteln('введите строку'); readln(s); for i: =1 to length(s) docase s[i] of 'а': s[i]: ='б'; 'а': s[i]: ='б'; 'б': s[i]: ='а'; 'б': s[i]: ='а'; end; writeln(s); end.