===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
До собаки адресат, после собаки адрес почтового сервера
Ване не стоит брать диски 2 и 3. Потому что:
2 диск требует ЦП с тактовой частотой 2 Ггц, нежели на его компьютере стоит ЦП с тактовой частотой 1.7 Ггц.
3 диск требует ОЗУ 512 Мбайт, а на его компьютере используется всего 256 Мбайт.
If ( ((x+y+z)<180) and (x<90) and (y<90) and (z<90))
then write(' треугольник остроугольный')
else write('треугольник не остроугольный');
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-10,10).Where(t->(3*t-1).IsEven).Count.Println
end.
<u>Результат</u>
10