KarinaKotik11
10.12.2021 12:18

2)vara, b: real; c: real; 3)vari, g, max, min: real; 4)vara, b, c, d: integer; i, t, k: real; 14.языковые конструкции, с которых в программах записываютсядействия, выполняемые в процессе решения , называются: 1)данными 2) выражениями 3 ) 4) операторами15.как записывается оператор присвоения? 1)a=1; 2)a=: 1; 3)а: =1; 16.операторы в программе на языке паскаль отделяются друг от друга: 1)двоеточием 2)пробелом 3 )запятой 4) апострофом 5)точкой с запятой17.как записывается оператор вывода? 1)writeln() 2)readkey0 3)readln()18.как записывается оператор ввода? 1) writeln () 2)readkey) 3)readln()19.чем заканчивается программа? 1)clrscr 2)end 3)readln20.напишите, что напечатает оператор write('52', 'd', 4+3, 'summa', 6/3)21.запись на языке паскаль следующего выражения =5x*-10x+2 выглядит: 1)y: =5*x*x+10+x+22)y: =5*x*x+10x+23)y: =5x*x+10x+222.как записывается в паскале простое условие #: 1)+ 2) 3): =23.формат полного оператора ветвления следующий: 1)if; 2)ifthеnelse; 3)ifthеn; 24.какая из следующих последовательностей символов является условнымоператором? 1)if a> b then m: =a; else m: =b; 2)if a/b then m > c; 3)if a> b then m=a else m=b; 4)if a> b then m: =a; 25.в каком из условных операторов допущена ошибка? 1)ifb=0 thenwriteln (деление невозможно'); 2)if a3)if a> b then max: =a else max: =b; 4)if (a> b) and (b> 0) then c: =a+b; 26.оператор цикла с предусловием в паскале имеет следующий формат: 1) writedo; 2) writelngo; 3)whiledo; решить ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bobrovpasha
23.08.2021 22:45
Var A: array [1..10] of integer;                                                                                          i,b: integer;                                                                                                                begin                                                                                                                                for i:=1 to 10 do                                                                                          readln(A[i]); for i:=1 to 10 do begin                                                                                  if A[i]=5 then                                                                                                                       writeln(i,' Строка');                                                                                                            end;                                                                                                                              end.
0,0(0 оценок)
Ответ:
weelrockster
30.12.2020 16:43
Var
a,b,c,p,s:real;
m:integer;
begin
 repeat
   writeln('a,b,c &'); 
   readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг}
 until (a<b+c)and(b<a+c)and(c<a+b);
   writeln('площадь - введите 1 или периметр -2 ?');
{выбираем что считать, если площадь, то вводим 1, периметр - 2}
readln(m); 
   case m of   
     1:
        begin
            p:=(a+b+c)/2;
            writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади}
        end;
      2:writeln(a+b+c); {вывод периметра}
     end;
end.
     программа 2 Нахождение суммы элементов одномерного массива
const
n=10;
Var
a:array[1..n]of integer;
i,s:integer;
begin
   for i:=1 to n do
         begin
              a[i]:=random(100); {заполнение массива случайными числами [0.100)}
              write(a[i]:4); {выводим на экран массив}
              s:=s+a[i];   {считаем сумму}
         end;
writeln;
writeln('S= ',s); {выводим сумму}
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота