Var
O:string;
i,k:byte;
B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
Begin
WriteLn(B[i]);
ReadLn(O);
O:=LowerCase(O);
While (O <> 'да')and(O <> 'нет') do
Begin
Write('Попробуйте ещё раз: ');ReadLn(O);
O:=LowerCase(O);
End;
if pO[i] = O then k:=k+1;
End;
WriteLn('Количество правильных ответов: ',k);
End.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
<u><em>
Тестовое решение:</em></u>
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
Вопрос вполне по предмету: моделирование экономических процессов делается как раз с помощью языков программирования.
А вот если препод вымогает деньги - то можешь пожаловаться.
Я могу ошибаться т.к. только изучаю c sharp, у нас в школе его не преподают. В общем создаёшь две переменные класса integer. То есть пишешь int a, b, c;(например). Каждое число считываешь коммандой a = Console.Readline () ;( так с каждой буквой).
Далее пишешь if (a+b+c=...) {
Console.Writeline (a)
}
else { Console.Writeline (c)}
(я не понял что ты имеешь в ввиду под положительным чилом, там где"... " напиши сам(а))