Питання №1 ?

Які умовні оператори використовують в розгалуженнях?

if та for…in

відсутня правильна відповідь

if та if...else

if...else та for…in

Питання №2 ?

Що буде надруковане в результаті виконання фрагменту програми, якщо введено значення 58?

(Фото ниже)

116

29

58

110

Питання №3 ?

Який оператор відповідає наведеній блок-схемі?

(Фото ниже)

if a<5 :

a = a-1

else:

a = a+1

if a>5:

a = a+1

else:

a = a-1

if a>5 :

a = a-1

else:

a = a+1

if a>5 :

a = a+1

Питання №4 ?

Яких значень набуде змінна b після виконання умовного оператора Іf, якщо a =8?

(Фото ниже)(там в задании оденаковые фото как во 2)

16

9

8

5

Питання №5 ?

Даний алгоритм має назву.

(Фото ниже)

Неповне розгалуження

Вкладене розгалуження

Абсолютне розгалуження

Повне розгалуження

Питання №6 ?

Який оператор реалізує дію:

Якщо ціле число a парне, поділити його на 2

if a != b:

a = b

if a>b:

a = 0

else:

b = 0

if a<0:

a = –a

if a%2 == 0:

a = a//2

Питання №1 ? Які умовні оператори використовують в розгалуженнях?if та for…inвідсутня правильна відп

Показать ответ

Ответ:

natakubkina78

14.05.2023 02:17

===== PascalABC.NET =====

-№1-

begin

var (Яблок, Апельсинов, Бананов) :=

ReadInteger3('Число яблок, апельсинов и бананов:');

var ВесЯблок := 100 * Яблок;

var ВесАпельсинов := 150 * Апельсинов;

var ВесБананов := 170 * Бананов;

if ВесЯблок > ВесАпельсинов then

if ВесЯблок > ВесБананов then

Print('Берем яблоки')

else

Print('Берем бананы')

else if ВесАпельсинов > ВесБананов then

Print('Берем апельсины')

else

Print('Берем бананы')

end.

-№2-

begin

var n := ReadInteger('Введите натуральное число;');

var P := new HashSet<integer>; // это множество целых

while n > 0 do

begin

P += n mod 10; // очередную цифру добавляем ко множеству

n := n div 10

end;

P.Count.Println // в множестве все элементы уникальны

end.

Нужна , ! 1. одно яблоко весит 100 граммов, один апельсин -150 граммов, а один банан – 170 г. вам з

0,0(0 оценок)

Ответ:

MelinMelomGii

08.11.2021 17:22

Вариант первый:

Var
   A:longint;
   n,p:integer;
   B:byte;
Begin
Write('Введите натуральное число: ');
ReadLn(A);
n:=0;
p:=0;
While A > 0 do
   Begin
   B:=A mod 10;
   if B = 0 then n:=n+1;
   if B = 5 then p:=p+1;
   A:=A div 10;
   End;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

Вариант второй:

Var
   A:string;
   n,p,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
n:=0;
p:=0;
For i:= 1 to Length(A) do
    if A[i] = '0' then n:=n+1
       else if A[i] = '5' then p:=p+1;
WriteLn('Количество нулей в числе: ',n);
WriteLn('Количество пятёрок в числе: ',p);
End.

0,0(0 оценок)

Популярные вопросы: Информатика