Гарнитуры наве волябвьчбвьлчсшрное
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:integer:=0;
for var i:=0 to 9 do
if a[i]=0 then begin p:=i+1; break end;
if p>0 then Writeln('Номер первого нулевого элемента ',p)
else Writeln('В массиве нет нулевых элементов')
end.
<u>Пример</u>
30 22 29 -47 11 39 13 0 46 22
Номер первого нулевого элемента 8
107-9 = 98 человек знают как минимум один из языков.
86 + 80 - 98 = 68 человек знают оба языка
86-(98-80)=80-(98-86)=68
Var
i, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.
//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.