Предмет:
ИнформатикаАвтор:
gusn2agАвтор:
zaneo5wjАвтор:
ariaskinnerАвтор:
sagelkcrПоказываю:
1) Вводишь переменную а
2) Добавляешь переменную для площади квадрата
3) Добавляешь переменную для площади круга
4) Выполняешь вычисление по формуле и присваиваешь его переменной для площади круга, т.е. Sk=pi*r*r; (pi сразу задаешь значение - это пи)
5) Выполняешь вычисление по формуле и присваиваешь его переменной для площади квадрата, т.е. S=r*r;
6) Проверка:
если (Sk > Sv) {
вывести результат
} если нет {
вывести 2 результат
}
Удачи!
Автор:
jaliyahnkgtТак?
var a, R: integer; S:real;
begin
writeln('Введите радиус круга');
readln(R);
writeln('Введите сторону квадрата');
read(a);
S:=3.14*R*R;
a:=a*a;
If S>a then write('Площадь круга больше площади квадрата')
else write('Площадь квадрата больше площади круга');
end.
Автор:
foxsuwsДобавить свой ответ
Предмет:
МатематикаАвтор:
rochaОтветов:
Смотреть
Предмет:
Английский языкАвтор:
basileo6ozgОтветов:
Смотреть
Предмет:
ГеометрияАвтор:
sullivanydmcОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
santiago989Ответов:
Смотреть