Если один оператор,тогда без begin end
Если два пишем с begin end
Пример:
1.For i:=1 to n do
For j:=1 to m do
begin
любые действия
end;
2.For i:=1 to n do
begin
For j:=1 to m do
begin
любые действия
end;
end;
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите положительное число:');
if x<=0 then Writeln('Нужно было ввести положительное число')
else
for var a:=1 to 3 do
Writeln('a=',a,', y=',Power(x,Cos(x)+2/3*Power(x,4)*(a+1/Sqr(a))))
end.
<u>Пример</u>
Введите положительное число: 3.14
a=1, y=8.18301847799916E+63
a=2, y=9.20754501073329E+71
a=3, y=4.96774611959821E+99
1)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=random(10);
Write(A[i]:4);
end;
Writeln;
Writeln('Введите число: ');
Readln(s);
For i:=1 to n do
begin
If A[i]=s then k:=k+1;
end;
Writeln('Число ',s,', его кол-во в массиве: ',k,' шт.');
<span>END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,min,mini,max,maxi:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
max:=A[1];
min:=A[1];
For i:=1 to n do
begin
if A[i]>max then
begin
maxi:=i;
max:=A[i];
end;
if A[i]<min then
begin
mini:=i;
min:=A[i];
end;
end;
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
<span>END.</span></span>
Program gt;
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.
Раз Никита с Костей и Костя с Юрой играют на разных инструментах, а всего у нас два вида инструментов, то тот Никита с Юрой играют на одинаковых инструментах, а Костя на другом ⇒ Костя играет на скрипки, а Юра с Никитой - на гитарах