балов даю ⬇️⬇️⬇️⬇️⬇️⬇️⬇️⬇️⬇️
на вході маємо 2 числа программа порівнює їх між собою і виводить результат у вигляді True або false. Порівняння відбувалися за такими пунктами :
1. Чи ці числа рівні
2. Чи числа не рівні
3. Чи число більше за друге
4. Чи 2 число більше за перше
5. Чи квадрат першого числа більший за квадрат другого числа
6. Чи сума цих чисел більша за їх добуток
1) Наполеон Бонапарт - французский государственный деятель.
2) Христофор Колумб - открыл новый свет.
Из Географии -
1) Россия - самое большое государство по площади.
2) В Китае больше всего населения.
Из биологии -
1) Растения производят кислород.
2) У коровы есть вымя.
Из математики -
1) 2+2=4
2) 6-2=4
Из Русского языка -
1) В русском алфавите - 32 буквы.
2) В сложном предложении 2 грамматические основы.
Из Литературы -
1) А.С. Пушкин - русский поэт.
2) "Войну и Мир" Написал Л.Н. Толстой.
Из информатики -
1) Информатика - наука о работе с информацией.
2) Вирт Никлаус - специалист в области информатки.
uses crt;
var p, d, z, i: integer; k:real;
begin
writeln('Введите период для отрастания травы в днях:');
readln(p);
writeln('Введите потребное количество загонов:');
readln(z);
for i:=1 to 5 do
begin
d:=i; // переменная дней изменяется, как дано в условии от 1 до 5 дней
k:=round(p/d+z); //процедура round округляет по всем правилам число загонов. Ведь весьма нелогично строить, например 3,3333 загона:)
writeln ('Для количества дней пастьбы - ', d,' требуется загонов - ',k);
end;
end.