Врезультате выполнения фрагмента программы while< > 0 do begin write (2*(n mod 10)+1); n: =n div 10 end на экране выведено число 13717.укажите все числа, которые могли находиться в переменной n до выполнения этого цикла.

1) 716, 2 * 6 + 1 = 13, n = 71;

2) 638, 2 * 8 + 1 = 17, n = 63;

3) 386, 2 * 6 + 1 = 13, n = 38;

4) 836, 2 * 6 + 1 = 13, n = 83.

Вариант 2) дальше не рассматриваем.

При втором прохождении цикла:

1) 71, 2 * 1 + 1 = 3, n = 7;

3) 38, 2 * 8 + 1 = 17, n = 3;

4) 83, 2 * 3 + 1 = 7, n = 8.

Варианты 1) и 3) отбрасываем.

Проверяем, получится ли в варианте 4) число 17.

4) 8, 2 * 8 + 1 = 17, n = 0 (цикл останавливаеся).

ответ: 4) 836.

ответ на 1 задачу

Алгоритм выглядит таким образом:

ввести x, y;

если x>y то

s:=(x*y)*2;

иначе

s:=(x+y)/2;

вывод s

конец. (блок-схема прилагается в скриншоте 1)

На паскале выглядит примерно так:

var

x, y, s:real;

begin

readln(x,y);

if x>y then

s:=(x*y)*2;

else

s:=(x+y)/2;

writeln(s:2:2);

end.

ответ на 2 задачу

Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)

ответ на 3 задачу

Тут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".

На паскале выглядит примерно так:

var

a, b, c:integer; {если число вещественное}

begin

readln(a, b, c);  

if (a<b<c) then

writeln("Верно");

else

writeln("Неверно");

end.

ответ на 4 задачу

 На паскале:

var

a, b, c, max:integer;

begin

max:=0;

readln(a,b,c);

if max<a then

max:=a;

if max<b then

max:=b;

if max<c then

max:=c;

writeln(max);

end.

 ответ на 5 вопрос

На паскале:

Var

a,b,c:integer;

begin

readln(a,b,c);

if (a<0) then

a:=a*a;

writeln(a);

if (b<0) then

b:=b*b;

writeln(b);

if (c<0) then

c:=c*c;

writeln(c);

end.

Вот тебе простой вариант ришение задачи (коментар=пояснение)

PascalВыделить код

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16  program prg;  uses crt;  var  rez,chislo,min,max:integer;  begin  Write('Enter number =  ');readln(chislo);                 //zanosim 1 chislo  max:=chislo;                                              //v max ta min  min:=chislo;                                              //chtobu potom mu soukb sravnivat s drugimi chislamu  while (chislo<>0) do                                      //zapuskaem zikl poka mu ne napishem 0  begin   if (chislo>max)then max:=chislo;                         //sravnivaem s max   if (chislo<min) then min:=chislo;                        //sravnivaem s min   readln(chislo);                                          //snova pihem chislo   end;   rez:=(max-min);                                          //nahodim raznizy   writeln('max(',max,') - min(',min,') = ',rez);           //otvet end.