Регистрация
vladimirshmele1
28.04.2020 18:32
Информатика
Есть ответ 👍

Pascal. Известны площадь круга S1 и площадь квадрата S2. Определить, поместится ли круг в квадрат?

155
250
Посмотреть ответы 3

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

kaverzinaksenia
kaverzinaksenia
4,7(10 оценок)

program kryginkvadrat;

var

 s1, s2: integer;

begin

 writeln('Введите площать круга - ');

 readln(s1);

 writeln('Введите площадь квадрата - ');

 readln(s2);

 

 if s1 <= s2 then  

 writeln('Круг поместится в квадрат')

 else

 writeln('Круг не поместиться к вадрат');

 

 

end.

n1myFurry21
n1myFurry21
4,4(35 оценок)

program prog314;

var

 s1, s2: real;

d1, d2: real;

begin

 writeln('Введите площать круга: ');

 readln(s1);

 writeln('Введите площадь квадрата: ');

 readln(s2);

d1 := 2*sqrt(s1/3.14);

d2 := sqrt(s2);

 if d1 <= d2 then  

 writeln('Круг поместится в квадрат')

 else

 writeln('Круг не поместиться в квадрат');

end.

Объяснение:

ПростоРадмир001
ПростоРадмир001
4,6(17 оценок)

N = int(input())

a = [int(input()) for i in range(N)]

print(a.index(max(a)) + 1)

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