<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
в двоичной записи 11011110
77=7*11
В классе 7 мальчиков и 11 девочек
ИЛИ 7 девочек и 11 мальчиков
Всего 7+11 =18 человек
C#
int N = Convert.toInt32(Console.ReadLine());
int sum = 0;
for (int n = 0; n < N; n++)
{
int a = Convert.toInt32(Console.ReadLine());
if (a < 15)
{
sum = sum + a;
}
}
if (sum > 60)
{
Console.WriteLine("Yes");
}
else
{
Console.WriteLine("No");
}
Console.ReadKey();