Аннабель0Свит
20.04.2021 04:05

БЫСТРО
1. Какое число будет выведено вконсоль при выполнении указанного участка кода?
if ('a'<'b') and ('true'>'false')
then write (3+2*2)
else write (42/(3+4))
2.Как называется условный оператор, в котором при выполнении или невыполнении его условия выполняется несколько операторов?

Полный
Сокращённый Составной
3.Какие существуют формы записи условного оператора в языке Pascal?

Выберите один или несколько подходящих ответов

Полная
Развёрнутая
Дополненная
Сокращённая
4.Как называется алгоритм, который помимо следования содержит конструкцию ветвления?

Разветвляющийся

Линейный

Циклический

Вс Из указанных фрагментов программ выберите те, которые дают правильный ответ на во является ли целое число a чётным?
1) iffrac (a/2)=0
then write ('Да')
else write ('Нет');
2) if a mod 2=0

then write ('Да');

3) if a mod 2=1
then write ('Да')
else write ('Нет');
4) if a mod 2=0

then write ('Да')

else write ('Нет');
6. Какой оператор предназначен для записи разветвляющегося алгоритма на языке Паскаль?

Оператор присваивания

Оператор цикла

Условный оператор

Оператор вывода
7.Как называется условный оператор, который записан в составе другого условного оператора?

Вложенный

Вс Свёрнутый

Составной
8.Выберите условные операторы, записанные в сокращённой форме.
Выберите несколько из 4 вариантов ответа:

1) if a<>b
then a:=b;
else write ('равны');

2) if a<>b

then write ('неравны')

3) if a>b
then max:=a
else max:=b;
4) if a>b

then begin

p:=a;
a:=b;
b:=p;
end;
9. Какую форму имеет блок условного оператора на блок-схеме?

Ромб

Параллелограмм

Треугольник

Прямоугольник
10. Какой из фрагментов кода, по заданным величинам трёх углов, отвечает на во может ли существовать треугольник с указанными углами?

1) p:=a+b+c=180;

if p then

then write ('Да')

else write ('Нет');

2) if a

then write ('Да')

elsewrite ('Нет');

3) if (a

and (c

write ('Да')

else write ('Нет');

4) if (a=b) or (b=c)

then write ('Да');

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ZENsh
21.03.2022 14:19

var
a, b: real;
n: integer;

function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;

function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;

begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.

0,0(0 оценок)
Ответ:
ФАНТА66666
29.12.2021 17:28

1)

var 

a,b,c:real;

begin

readln(a,b);

c:=180-a-b;

if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')

else

if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else writeln('остроугольный');

end.

2)

var

v:real;

begin

readln(v);

if v<7.8 then writeln ('ракета упадет на Землю');

if v=7.8 then writeln ('ракета станет спутником Земли');

if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы'); 

end.

 

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота