Есть ответ 👍

Вот фото к тому заданию​

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

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


Ластик - 2, Инструменты рисования - 4, инструменты выбора - 1, инструменты камеры - 6, инструменты преобразования - 5, инструменты окраски - 3

daa86
4,4(10 оценок)

// pascalabc.net, версия 3.2 var p1, p2: integer; function getp(a, b: integer): integer; begin getp : = 2 * (a + b); end; begin p1 : = getp(readinteger('a1 = '), readinteger('b1 = ')); p2 : = getp(readinteger('a2 = '), readinteger('b2 = ')); if p1 > p2 then writeln('периметр первого больше'); if p1 = p2 then writeln('периметры равны') else writeln('периметр второго больше'); end.

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