Регистрация
biksummer23
03.02.2021 17:48
Информатика
Есть ответ 👍

Написать программу для нахождения длины окружности и площади круга(паскаль)

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

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

SharagaXD
SharagaXD
4,6(54 оценок)
Const p=3.14; var l,r,s: real; begin write (' введи радиус'); l: =2*p*r; writeln (' длина окружности =' , l); s: =p*sqr(r); writeln (' площадь круга =' , s); end.
maxjk19
maxjk19
4,8(84 оценок)
Var i,s: integer; begin s: =0; for i: =10 to 70 do   if i mod 4 = 0 then s: =s+i; writeln('s = ',s); end. результат: s = 600

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