Написать программу нахождения периметра параллелограмма по известным сторонам a и m (a и m — целые числа, вводимые с клавиатуры)

151

409

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

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

katka1999

Информатика

4,5(14 оценок)

var a,m,p: integer;

begin

readln(a,m);

p: =(a+m)*2;

writeln(p);

end.

albinasol13

Информатика

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

Var s: string; a: array[1..255] of integer; l,max,i: integer; begin writeln('введите предложение: '); readln(s); l: =length(s); max: =0; for i: =1 to l do begin a[i]: =ordansi(s[i]); // function ordansi(a: char): byte; // преобразует символ в код в кодировке windows if a[i]> max then max: =a[i]; end; for i: =1 to l do write(a[i],' '); writeln; writeln('max = ',max); end. пример: введите предложение: primer пример. 80 114 105 109 101 114 32 239 240 232 236 229 240 46 max = 240