Регистрация
Артём244
25.05.2020 03:21
Информатика
Есть ответ 👍

Написать программу вычисления периметра треугольника, проверить существование треугольника- паскаль

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

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

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

ответ:

program z1;

var a,b,c,p: integer;

begin

writeln('введіть сторони трикутника: ');

readln (a,b,c);

p: =a+b+c;

writeln ('периметр трикутника: ');

if a+b> c and c+a> b and b+c> a then

writeln ('трикутник буде існувати.')

else

writeln ('трикутник не буде існувати.');

end

динара266
динара266
4,4(1 оценок)
Program gt; var n,a,i,s,q: integer; begin read(n); read(a); s: =0; for i: =1 to n do begin read(q); if(q mod a=0)then s: =s+q; end; writeln(s); end.

Популярно: Информатика