Задать вопрос
1 марта, 04:50

1. Сравните константы и расположите их в порядке возрастания: 1. 'A cat' 2. 'Зоопарк' 3. 'The museum / 4. 'The zoo'

2. Что будет выведено в результате выполнения фрагмента программы: A:='пар'; B:='о'; C:='воз'; E:='ход'; F:=length (A) + length (B) + length (C) - length (Е) ;

1) 18 2) 4 3) 8 4) 15

3. Какое значение будет иметь переменная s после выполнения программы: var i, n: integer; a, s:string; begin a:='топор'; n:=length (a) ; s:=a[n]; for i:=n-1 downto 2 do s:=s+a[i]; s:=s+a[1]; writeln (s) ; readln; end.

1) потоп 2) ропот 3) топот 4) ротор

+5
Ответы (2)
  1. 1 марта, 06:27
    0
    Второе ответ 2

    Третье ответ 2
  2. 1 марта, 06:30
    0
    1. 'A cat' 3. 'Зоопарк' 4. 'The museum 2. 'The zoo'
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1. Сравните константы и расположите их в порядке возрастания: 1. 'A cat' 2. 'Зоопарк' 3. 'The museum / 4. 'The zoo' 2. Что будет выведено в ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=2; for i:=0 to 2 do begin a:=a+i; end; Ответ: введите число 4.
Ответы (2)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)
Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!
Ответы (1)
Функция для определения позиции буквы в слове, не могу найти ошибку. var slovo : string; i : integer; function ups (var s : string; ch : char) : integer; var i, n : integer; begin for i:=1 to length (s) do if s[i]=ch then n:=i else n:=0; ups:=n; end;
Ответы (1)