Выберите правильно написанный заголовок программы
a. Program 1_Reshenie;
b. Program Reshenie-1;
c. Program Reshenie1;
d. Program Reshenie 1.
2. Что такое составной оператор?
a. Группа операторов перед операторными скобками begin и end;
b. Группа операторов после операторных скобок begin и end;
c. Группа операторов внутри операторных скобок begin и end;
d. Группа операторов в разделе описания переменных var.
3. Укажите приоритет операций в языке Паскаль.
Операции типа сложения: +, –, or
Операции отношения: =, <>, <, >, <= ,> =, in
Унарная операция not, унарный минус –
Операции типа умножения: *, /, div, mod, and, shl, shr.
4. Какого раздела не существует в программе, написанной на языке Паскаль?
a. Заголовка;
b. Примечания;
c. Описаний;
d. Операторов;
5. Величина, значение которой не изменяется в процессе выполнения программы - это...
a. Переменная;
b. Константа;
c. нет верного ответа;
d. верно 1, 2.
6. Сколько операций выполняется при вычислении выражения
(х + 1/4)*(х - 1/4) - 1/2
a. 4
b. 5
c. 6
d. 7
Трудолюбивые лошади человеку уже много тысяч лет.
Сельское хозяйство: До изобретения машин человек использовал лошадей для распашки земли, переработки и перевозки урожая.
Война: Степные воины запрягали коней в лёгкие повозки - колесницы. Позже лошади возили на себе свирепых стрелков и рыцарей во время сражений.
Транспорт: Раньше лошади перевозили людей и почту на большие расстояния. Они считались самым быстрым наземным транспортом.
Спорт: К конным видам спорта относят поло, конкур, родео и другие. Также людям нравятся скачки, и они играют на ипподроме, ставя деньги на коня, который, по их мнению, придёт первым.
УдАчИ
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами