ответьте пожайлуста СИНТАКСИЧЕСКИЕ ОШИБКИ В ПАСКАЛЕ 1. Выберите программу, которая не соответствует синтаксису структуры Паскаль-программ. А. Program A; Const d=5; var b, c:real; begin read(b, c); writeln(b*c) end. B. Program A; var b, c:real; begin readln(b, c); End. C. Program A; Const d=5; var b, c:real; begin End. D. Program A; Var b, c; Const d=5; begin b:=2*d End. E. Program A; begin writeln(‘b=’) end. 2. Укажите программу, в которой есть неописанная переменная. A. Program A; var b, c:real; Begin readln(b, c); writeln(b-c*c) end. B. Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until i C: Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until i<1 end. D. Program A; begin writeln(‘b’) end. E. Program A; var b:real; begin read(b); end. 3. Укажите тип синтаксической ошибки, имеющейся в данной программе: Program A; const d=5; var a:real; i:integer; begin a:=0; i:=1; if a write(a) end. A. Нет конца программы B. Переменная описана дважды C. Переменная неописана D. Неверная константа 4. Укажите тип синтаксической ошибки, имеющейся в данной программе: Program 1A; var b:real; begin read(b); b:=b; end. A. Нет конца программы B. Переменная описана дважды C. Переменная неописана D. Неверный идентификатор E. Неверная константа F. Ожидалась; 5. Укажите тип синтаксической ошибки, имеющейся в данной программе: Program A; var a1:real; begin read(a1); a1:=a1+0, 1; end. A. Нет конца программы B. Переменная описана дважды C. Переменная неописана D. Неверный идентификатор E. Неверная константа 6. Укажите программу, в которой результат не выдается. A. Program A; var b:real; begin read(b); writeln(b) end. B. Program A; var b:real; begin read(b); writeln(b); end. C. Program A; var b:real; begin b:=1; write(2*b-3) end. D. Program A; var b, c:real; begin read(b); if b>0 then c:=b else c:=-b end. E. Program A; var b, c:real; begin read(b, c); b:=b+c; writeln(b) end.
Ответы
var
i, j, minlen, ind, count, countrow: ineteger;
A:array[10, 10] of integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(A[i,j]);
ind:=1;
minlen:=11;
for i:=1 to 10 do
begin
count:=1;
countrow:=1;
for j:=2 to 10 do
begin
if (A[i,j]=A[i,j-1]) then
inc(count)
else
begin
if (count>countrow) then
countrow:=count;
count:=1;
end;
end;
if (countrow<minlen) then
begin
minlen:=countrow;
ind:=i;
end;
end;
for j:=1 to 10 do
writeln(A[ind,j])
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вводятся три цифры. требуется составить из них наибольшее возможное четное число. знаю, что легкая, но
Автор: ЮрьевичКарпова1564
ИНФОРМАТИКА очень нужно. 25б.
Автор: Васильев1028
по информатике подпишусь А ТО РОЛИТЕЛИ УЖЕ БЕШЕНЫЕ ХЕЛП
Автор: artashhovhan
var a,b,c,s:integer;
begin
read(a);
read(b);
read(c);
s:=(a+b+c) mod 3 mod вробная часть от деления
end;
var post,Bes:real;
begin
read(post);
Bes:=post-100; (кг)=(рост(см) - 100
end;
var m,n,k:integer;
begin
read(m);
read(n);
read(k);
o:=m*2+n*0+k*1
end;
var x:integer;
begin
read(x);
if x mod 2 =0 then write('чот') else write('нечет');
end;
var x:integer;
begin
read(x);
if x mod 10=7 then write('на конце 7') else write('не 7');
end;
///write(x) выводит значение переменой;