1) а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7
2) a) readln(а); readln(х);
б) writeln(z)
в) var b,c : real; (чаще всего используется при нахождении вещественных чисел)
var a: integer; (чаще всего используется при нахождении вещественных чисел)
г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)PROGRAM PR1;
var n:integer;
begin
for n:=1 to 7 do
writeln('trud');
end.
а) var a:array[1..3] of integer;
s, i: integer;
begin
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=0
for i:=1 to 3 do
begin
if a[i] mod 2=0 then
s:=s+a[i]
end;
writeln(s);
readln();
end.
б) var a:array[1..3] of integer;
s, i: integer;
begin
for i:=1 to 3 do
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=0
for i:=1 to 3 do
begin
if a[i]<0 then
write(a[i], ' ')
end;
readln();
end.
в) var a:array[1..3] of integer;
s, i: integer;
begin
for i:=1 to 3 do
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=1
for i:=1 to 3 do
begin
if a[i] mod 3=0 then
s:=a[i]*a[i];
end;
writeln(s);
readln();
end.
Объяснение:
Print float