C h u k a l o v a
68 104 117 107 97 108 111 118 97
1000100 1101000 1110101 1101011 1100001 1101100 1101111 1110110 <span>1100001</span>
1) б или в
2) в
3) г
4) б или в
5) в, наверное
6) г
7) а
Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
Они выводят информацию туда куда тебе нужно