<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
(1024*768*24)/(1024*1024*8)=2,25мб
В первой скобке размер изображения в битах, во второй приводим к мегабайтам
1) Слева должна быть переменная
Верно A:=5+5
3) не ясно, является переменная C строковой, чтобы можно было осуществить склейку.
4) Если game описано как целое, то верно
5) Можно сделать так:
a:=5;
c:=5;
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.