uses crt; var a:array [1..9] of integer; i,c,m,n:integer; b:real; begin clrscr; randomize(); c:=1; for i:=1 to 9 do begin if i=c then begin a[i]:=i+3; c:=c+3; end else begin if i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1); end; write(a[i],' '); end; readln(); end.
uses crt; var x,y,s,i,j:integer; a: array [1..15] of integer; begin clrscr; randomize(); writeln('Vvedite chislo'); readln(x); writeln('Ishodniy'); for i:=1 to 15 do begin a[i]:=random(100); write(a[i],' '); end; writeln; writeln; writeln('Ispravlenniy'); for i:=1 to 15 do begin if a[i]+i<x then begin a[i]:=(a[i]+i)*2; s:=s+a[i]; textcolor(red); write(a[i],' '); end else begin textcolor(white); a[i]:=(a[i]+i); write(a[i],' ') end; end; writeln; textcolor(green); writeln('Summa =',s); readln; end.
uses crt;
var
a:array [1..9] of integer;
i,c,m,n:integer;
b:real;
begin
clrscr;
randomize();
c:=1;
for i:=1 to 9 do
begin
if i=c then
begin
a[i]:=i+3;
c:=c+3;
end
else
begin
if i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1);
end;
write(a[i],' ');
end;
readln();
end.
uses crt;
var x,y,s,i,j:integer;
a: array [1..15] of integer;
begin
clrscr;
randomize();
writeln('Vvedite chislo');
readln(x);
writeln('Ishodniy');
for i:=1 to 15 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln;
writeln('Ispravlenniy');
for i:=1 to 15 do
begin
if a[i]+i<x then
begin
a[i]:=(a[i]+i)*2;
s:=s+a[i];
textcolor(red);
write(a[i],' ');
end else
begin
textcolor(white);
a[i]:=(a[i]+i);
write(a[i],' ')
end;
end;
writeln;
textcolor(green);
writeln('Summa =',s);
readln;
end.
Вопрос 1.
Какие ключевые слова не используются для записи команды ветвления?
andВопрос 2.
Как выглядит полная форма команды ветвления?
if ... then ... else ...
Вопрос 3.Как выглядит сокращённая форма команды ветвления?
if ... then ...Вопрос 4.
Какая из команд записана неправильно?
if a:=0 then a>0;
Вопрос 5.
Какая из команд записана правильно?
if x=0 and a>0 then b:=0 else b:=x;Вопрос 6.
Какая из команд записана правильно?
if (x=0) and (a>0) then begin b:=0;c:=x; end else b:=x;Вопрос 7.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=6;
if a mod 2 = 0 then write(a+2) else write(a-2);
8Вопрос 8.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=12;
if a div 2 >= 6 then b:=a mod 5 else b:=a div 3;
write(a-b);
10
Вопрос 9.
Что будет напечатано на экране в результате выполнения данного фрагмента программы
a:=22;
if a*a >= 225 then a:=a mod 6
Write(22-a);
18
Вопрос 10.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 9
a:=5; b:=8; c:=11;
if (a>b) ... (b
4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН
Вопрос 11.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 3
a:=15; b:=7; c:=4;
if (a>b) ... (b
4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАНВопрос 12.
Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 5
a:=1; b:=8; c:=6;
if (a<=c) ... (b<=c) then z:=c-a else z:=c-b;
2 or