begin writeln('Введите номер дня недели'); read(a); if (a < 1) or (a > 7) then Write('Ошибка') else begin if a = 1 then writeln('Понедельник') ; if a = 2 then writeln('Вторник') ; if a = 3 then writeln('Среда') ; if a = 4 then writeln('Четверг') ; if a = 5 then writeln('Пятница') ; if a = 6 then writeln('Суббота') ; if a = 7 then writeln('Воскресенье') end ; end.
А ещё лучше подобные задания через оператор case делать:
var n: Integer;
begin Write('Введите номер дня недели: '); readln(n); case n of 1: WriteLn('понедельник'); 2: WriteLn('вторник'); 3: WriteLn('среда'); 4: WriteLn('четверг'); 5: WriteLn('пятница'); 6: WriteLn('суббота'); 7: WriteLn('воскресенье') else Write('ошибка'); end; end.
const s='Каждый охотник желает знать где сидит фазан';
var s1,sub:string;
i,j,m,n:integer;
a:array[1..100] of string;
begin
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
inc(n);
a[n]:=sub;
sub:='';
end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;
for i:=1 to n do
begin
if i mod 4 =1 then writeln(a[i]);
if i mod 4 =2 then writeln(' ',a[i]);
if i mod 4 =3 then writeln(' ',a[i]);
if i mod 4 =0 then begin
writeln(' ',a[i]);
writeln;
end;
end;
end.
Объяснение:
Возможности протестировать нет, но надеюсь работает. Питон не знаю, но возможно