Question

Помогите решить задачи 1. Даны радиус круга и сторона квадрата. У какой фигуры площадь больше? 2. Ввести три числа. Выбрать и напечатать наибольшее из них. 3. Написать программу, которая требует ввода времени дня и, в зависимости от введённого значения, желает доброго утра, доброго дня, доброго вечера или спокойной ночи.Среда програмирования:Pascal ABC.NET

Answer 1

Program ololo;

var a, b, s1, s2:real;

begin

writeln("введите радиус круга");

readln(a);

s1:=3.14*a*a;

writeln("введите сторону квадрата");

read(b);

s2:=b*b;

if s1>s2 then write("Площадь круга больше") else if s2>s1 then write("Площадь квадрата больше") else write("Площади равны");

end.

Answer 2

Var a,b,c:integer;
begin
read(a,b,c);
if b>a then a:=b;
if c>a then writeln(c) else writeln(a); 
end.

Answer 3

1. Для решения первой задачи, нужно сравнить площади круга и квадрата. Площадь круга вычисляется по формуле S = πr^2, где r - радиус круга. Площадь квадрата вычисляется по формуле S = a^2, где a - сторона квадрата. Сравниваем полученные площади и определяем, у какой фигуры площадь больше.

2. Для решения второй задачи, вводим три числа и сравниваем их между собой. Выбираем наибольшее число и выводим его на экран.

3. Для решения третьей задачи, напишем программу, которая будет запрашивать ввод времени суток. В зависимости от введенного значения, программа будет выводить соответствующее приветствие: доброе утро, добрый день, добрый вечер или спокойной ночи.

Пример кода на Pascal ABC.NET для третьей задачи: ``` program Greetings; var time: string; begin writeln('Введите время суток (утро, день, вечер, ночь): '); readln(time); if (time = 'утро') then writeln('Доброе утро!') else if (time = 'день') then writeln('Добрый день!') else if (time = 'вечер') then writeln('Добрый вечер!') else if (time = 'ночь') then writeln('Спокойной ночи!') else writeln('Ошибка ввода времени суток.'); end. ```