Определите средний вес 2-х подруг. вес ввести с клавиатуры var sr, ves1, ves 2 : begin writeln ('введи вес 1 подруги'); readln ; writeln (''); readln (ves2); sr: = writeln ('средний вес двух подруг: '

160

370

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

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

shabrikovayana

Информатика

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

Realves1введи вес 2 подруги(ves1 + ves2) / 2; sr

Milkyway3000

Информатика

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

var

sr, ves1, ves2 : real;

begin

writeln ('введите вес 1 подруги');

readln (ves1);

writeln ('введите вес 2 подруги');

readln (ves2);

sr: =(ves1+ves2)/2;

writeln ('средний вес двух подруг: ',sr);

end.

annatimofeeva4

Информатика

4,6(79 оценок)

Var s: string; i: integer; begin readln(s); s[1]: =upcase(s[1]); for i: =2 to length(s) do s[i]: =lowcase(s[i]); for i: =1 to length(s)-2 do if (s[i] in ['.','? ','! '])and(s[i+1]=' ') then s[i+2]: =upcase(s[i+2]); writeln(s); end. пример: слова отделены друг от друга одним пробелом. исправить строку? вывести полученную строку на экран! слова отделены друг от друга одним пробелом. исправить строку? вывести полученную строку на экран!