program test;
var i:integer; n, sum: real;
begin
sum:=0;
write('Enter 10 numbers: ');
for i:=1 to 10 do
begin
read(n);
if n < 0 then
sum:=sum+n;
end;
writeln('Sum = ', sum);
readln;
end.
Способ Б конечно быстрее будет и в зависимости какая скорость передачи между ПК. А так ну допустим Б10.
Ответ:
допустим если есть только два знака мы можем создать несколько слов да , ну и д.р. этот шифр мальчики создали его чтобы другие ребята не могли подсмотреть или подслушать
//Pascal ABC.NET 3.1 сборка 1219
uses
GraphABC;
Var
i:integer;
begin
for i:=100 to 150 do
begin
clearwindow;
rectangle(i,i,i-30,i-30);
sleep(100);
end;
end.
Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.