Написать программу на языке паскаль. найти периметр трапеции длины всех сторон которой вводятся с клавиатуры.

Question

Информатика

Харита

9 ноября, 05:33

Написать программу на языке паскаль. найти периметр трапеции длины всех сторон которой вводятся с клавиатуры.

+3

Ответы (1)

Знаете ответ на вопрос?

Меланя · Answer 1

Program_z1;

var a, b, c, d, P:integer;

begin

read (a) ;

read (b) ;

read (c) ;

read (b) ;

P:=a+b+c+d;

write (' Периметр трапеции равен ', P) ;

readln; readln;

end.