Задать вопрос
20 октября, 17:58

Какое число будет напечатано на экране компьютера в результате выполнения фрагмента программы?

Бейсик

a=5 : b=8

If b/2>=a-1 Then

a=b+5

b=b*2-a

Else

a=a*b

b=b-a

Endif

Print b

Паскаль

a:=5; b:=8;

If b/2>=a-1 Then

begin

a:=b+5;

b:=b*2-a;

end

Else

begin

a:=a*b;

b:=b-a;

end;

Writeln (b) ;

+2
Ответы (2)
  1. 20 октября, 18:41
    0
    3 так как выполняется условие и проходит процедура 1 в которой b : = 8*2 - 15
  2. 20 октября, 19:33
    0
    ответ 3

    вроде бы ...
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Какое число будет напечатано на экране компьютера в результате выполнения фрагмента программы? Бейсик a=5 : b=8 If b/2>=a-1 Then a=b+5 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
В чем ошибка? Помогите исправить. Taberror: print (os. getcwd ()) import os import sys # coding : utf-8 print ("your program is enabled") name = input ("your name?") print ('Welcome,', name) answer = input ("поработаем?
Ответы (1)
Задание Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1. k:=20; k:=k+10; if k+1030 then k:=8 else k:=k-1; WriteLn (k) Ответ: 2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k) Ответ: 3.
Ответы (2)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...') ; Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)