var
a,b,c,n:integer;
begin
n:=0;
writeln("Введите 3 числа");
readln(a,b,c);
if a<0 then inc(n);
if b<0 then inc(n);
if c<0 then inc(n);
writeln("Из них ", n, " отрицательные.");
end.
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
1.To(ReadInteger('н=')).Println
end.
<u>Пример</u>
н= 13
1 2 3 4 5 6 7 8 9 10 11 12 13
Устройства пк:
1) монитор
2) принтер
3) мышь
принтер:
1) лазерный
2)струйный
Монитор:
1) матричный
2) жидкокристаллический
Мышь:
1) оптическая
2) шариковая
Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.