М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
koshakmarta
koshakmarta
05.05.2021 07:48 •  Информатика

ответьте пожайлуста
СИНТАКСИЧЕСКИЕ ОШИБКИ В ПАСКАЛЕ
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.

👇
Открыть все ответы
Ответ:
Evo4ka111
Evo4ka111
05.05.2021

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) выводит значение переменой;

 

 

 

4,6(26 оценок)
Ответ:
zaharuch
zaharuch
05.05.2021

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.

4,6(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ