Что будет напечатано программой? type stringa = array [1..5] of char; var i: integer; t: stringa; procedure P(var s: stringa); begin i:=1; while s[i]<'9' do begin s[i]:=succ(s[i]); i:=i+1 end end; begin i:=1; t:='12945'; P(t);

Раздел
Программирование
Тип
Просмотров
312
Покупок
1
Антиплагиат
Не указан
Размещена
13 Авг 2022 в 11:26
ВУЗ
ФДО ТУСУР
Курс
Не указан
Стоимость
100 ₽
Демо-файлы   
1
jpg
Screenshot
52.4 Кбайт
Файлы работы   
1
Каждая работа проверяется на плагиат, на момент публикации уникальность составляет не менее 40% по системе проверки eTXT.
jpg
Screenshot_5
54 Кбайт
Описание

Что будет напечатано программой?

type stringa = array [1..5] of char;

var i: integer; t: stringa;

procedure P(var s: stringa);

begin

i:=1;

while s[i]<'9' do

begin s[i]:=succ(s[i]); i:=i+1 end

end;

begin

i:=1; t:='12945'; P(t);

write(t[2])

end.

Вам подходит эта работа?
Похожие работы
Другие работы автора
Прямой эфир