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

Запись if <условие> then <оператор> называется

Варианты ответов

полной формой условного оператора

неполной формой условного оператора

составным условием условием

Во Запись if <условие> then <оператор1>
else <оператор2>
называется

Варианты ответов

полной формой условного оператора

сокращенной формой условного оператора

составным условием условием

Во Составные условия строятся из с Варианты ответов

логических операций and, or, not

арифметических операций +, - , *

с операций and, or, not, +, - , *

Во Условие - это выражение, стоящее в операторе if после слова:

Варианты ответов

then

if

else

Во Если условие ложно, то:

Варианты ответов

выполняется то, что следует после then

выполняется то, что следует после else

выполняются оба оператора

Во Операторные скобки - это:

Варианты ответов

слова begin и end

слово begin

слово end

слово program

слово var

Во Логическая операция or - это:

Варианты ответов

логическое И

логическое ИЛИ

логическое отрицание

Во слово then переводится как-

Варианты ответов

если

то

иначе

для

пока

Во Что будет выведено на экран после следующего фрагмента программы:
x:=7;
y:=x+5;
if y>=x then writeln(y+x)
else writeln(y-x);

Во Что будет выведено на экран после следующего фрагмента программы:
у:=5;
х:=у-2;
if (x>y) and (x mod 2=0) then writeln(y+2*x)
else writeln(x+y*3);

Во Группа операторов, записанных между словами begin и end , называется:

Варианты ответов

составным оператором

операторными скобками условием

составным условием

Во Выберите условия, правильно записанные на языке Pascal:

Варианты ответов хотя бы один во решити

👇
Открыть все ответы
Ответ:
nina236
nina236
15.07.2020

Задание 1: 4132

4 Экзамен | ЕГЭ | Информатика | Литература

1 Экзамен | ЕГЭ | Информатика

3 Экзамен | ЕГЭ

2 Экзамен & ЕГЭ & Информатика

Задание 2: 3124

3 рыбки

1 рыбки & аквариум

2 рыбки & аквариум & гуппи

4 рыбки & аквариум & гуппи & купить

Задание 3: 3421

3 Сок | Нектар

4 Сок

2 Сок & Апельсин

1 Сок & Апельсин & Яблоко

Задание 4: 2134

2 волейбол | баскетбол | подача | блок

1 волейбол | баскетбол | подача

3 волейбол | баскетбол

4 волейбол & баскетбол & подача

Задание 5: 2341

2 алгоритм & сжатие & графика & архиватор

3 алгоритм & сжатие

4 алгоритм | (сжатие & графика)

1 сжатие | графика | алгоритм

Задание 6: 1423

1 (Автомобили – Ford) & новые

4 Автомобили – Ford

2 Автомобили

3 Автомобили | Ford

Задание 7: 3124

3 отдых & Сочи & Адлер

1 отдых & (Сочи | Адлер)

2 отдых & (море | Сочи | Адлер)

4 отдых | Сочи | Адлер

Задание 8: 4123

4 строительный & стоимость & купить & купить

1 строительный & стоимость & купить

2 строительный | материал | купить

3 строительный | материал | стоимость | купить

Задание 9: 5000

Новосибирск 3300

Красноярск 2200

Новосибирск & Красноярск 500

Новосибирск | Красноярск 5000

Задание 10:

Атос & Портос 335

Атос & Арамис 225

Атос & Портос & Арамис 120

Атос & (Портос | Арамис) 440

Графические подтверждения:


В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания кол
В таблице приведены запросы к поисковому серверу. Расположите номера запросов в порядке убывания кол
4,7(12 оценок)
Ответ:
JumpyWizzard
JumpyWizzard
15.07.2020
Var
   Text,S:string;
   n,k:boolean;
   i:integer;
Begin
Write('Введите текст на русском языке: ');ReadLn(Text);
Text:=LowerCase(Text)+' '; // перевоит текст в нижний регистр
WriteLn(Text); // показывает действие предыдущей строки
For i:= 1 to Length(Text) do
    Begin
    if ('а' <= Text[i])and(Text[i] <= 'я')or(Text[i] = 'ё') then S:=S+Text[i] // записываем русские буквы в S
    else // как только встречаем другой символ, проверяем,
       if Length(S) > 0 then // есть ли в S хоть одна буква,
          Begin // и если есть, то проверяем условие задачки, и выводим слово на экран, если оно истинно
          if (S[1] in 'бвгджзйклмнпрстфхцчшщ')and(S[Length(S)] in 'аоэиуыеёюя') then WriteLn(S);
          S:=''; // далее обнуляем S
          End;
    End;
End.

Пример работы программы:

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