Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

b:=0;
while a<>0 do
begin
a:=a div 10;
h:=b*10+a mod 10;
end;
write(h);

если а=13305?

291

401

Посмотреть ответы 2

Ответы на вопрос:

brussina5563

Информатика

4,5(22 оценок)

Объяснение:

Сумма цифр 13305 кроме последней

vecronika54

Информатика

4,8(10 оценок)

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! procedure preobraz(var stroka: string); begin var bq: =new queue< (integer,integer)> ; foreach var m in stroka.matches('\s+') do bq.enqueue((m.index,m.length)); var wq: =new queue< (integer,string)> ; foreach var m in stroka.matches('\s+') do if m.value.any(t-> t in ['0'..'9']) then wq.enqueue((m.index,'')) else wq.enqueue((m.index,m.value)); stroka: =''; var pbi,pwi: integer; while (bq.count> 0) and (wq.count> 0) do begin (pbi,pwi): =(bq.peek[0],wq.peek[0]); if pbi< pwi then begin stroka: =stroka+bq.peek[1]*' '; bq.dequeue end else begin stroka: =stroka+wq.peek[1]; wq.dequeue end end; while bq.count> 0 do begin stroka: =stroka+bq.peek[1]*' '; bq.dequeue end; while wq.count> 0 do begin stroka: =stroka+wq.peek[1]; wq.dequeue end end; begin var s: =readlnstring; preobraz(s); s: ='< '+s+'> '; // чтобы было видно, как работает s.println end.