Program p; var i: integer; quest:array [1..2] of string; ans:array [1..2] of string; answ:array [1..2] of string; begin quest[1]:='20*2='; quest[2]:='3*5='; ans[1]:='40'; ans[2]:='15'; for i:=1 to 2 do begin writeln ('Вопрос номер ', i); writeln (quest[i]); write ('Ваш ответ - '); readln (answ[i]); while answ[i]<>ans[i] do begin writeln ('ответ неверный, попробуйте снова'); readln(answ[i]); end; writeln ('ответ верный'); writeln; end; writeln ('Congrats'); end.
Пример: Вопрос номер 1 20*2= Ваш ответ - 40 ответ верный
Вопрос номер 2 3*5= Ваш ответ - 10 ответ неверный, попробуйте снова 14 ответ неверный, попробуйте снова 15 ответ верный
1) const n=5; m=4; var a:array[1..n,1..m] of integer; i,j:integer; b1,b2:boolean; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; for i:=1 to n do begin b1:=true; b2:=true; for j:=2 to m do begin if a[i,j-1]>=a[i,j] then b1:=false; if a[i,j-1]<=a[i,j] then b2:=false; end; if b1 then writeln('В(о) ',i,' строке последовательность возрастающая'); if b2 then writeln('В(о) ',i,' строке последовательность убывающая'); end; end.
2) В постановке задачи есть неопределенность. Какой (какие) индекс (ы) должен быть степенью двойки - хотя бы один или оба?
3) const n=5; m=4; var a:array[1..n,1..m] of integer; i,j,k:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; k:=0; for i:=1 to n do for j:=1 to m do if a[i,j] mod 7 = 0 then k:=k+1; writeln('k = ',k); end.
var i: integer;
quest:array [1..2] of string;
ans:array [1..2] of string;
answ:array [1..2] of string;
begin
quest[1]:='20*2=';
quest[2]:='3*5=';
ans[1]:='40';
ans[2]:='15';
for i:=1 to 2 do begin
writeln ('Вопрос номер ', i);
writeln (quest[i]);
write ('Ваш ответ - ');
readln (answ[i]);
while answ[i]<>ans[i] do
begin
writeln ('ответ неверный, попробуйте снова');
readln(answ[i]);
end;
writeln ('ответ верный');
writeln;
end;
writeln ('Congrats');
end.
Пример:
Вопрос номер 1
20*2=
Ваш ответ - 40
ответ верный
Вопрос номер 2
3*5=
Ваш ответ - 10
ответ неверный, попробуйте снова
14
ответ неверный, попробуйте снова
15
ответ верный
Congrats