Регистрация
НастяandТима
08.07.2020 23:26
Информатика
Есть ответ 👍

Найди информацию о применении трехмерных моделей ( три примера ) и заполни таблицу

138
425
Посмотреть ответы 1

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

Сергій098765
Сергій098765
4,6(2 оценок)
Pascal abc 1) var p,s: real; begin write('p = '); read(p); write('s = '); read(s); if (p/2-sqrt(p*p/4-4*s))/2< 0 then s: =(p/2+sqrt(p*p/4-4*s))/2 else s: =(p/2-sqrt(p*p/4-4*s))/2; writeln('первая сторона равна ',s); writeln('вторая ',p/2-s); end. 2) vara: integer; beginwrite('a = '); read(a); if ((a div 10) mod 10) +(a mod 10)+(a div 100)> 9 then write('является')else write('не является')end.

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