PascalABC.NET 3.2 (сборка 1482 от 13.06.17)
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Собака=class
public
procedure Голос;
begin
Writeln('Гав!')
end;
end;
// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.
<span>var n:integer;
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end<span>.
Пример:
</span><span>n = 121
Перевертыш</span></span>
золушка вот решила на бал пойти:)
Русалочка решила ноги себе сделать))
Колобок решил из дома укатиться))
козлята открыли двери волку.
Царевич целует лягушку.