Запишите значение переменной S После выполнения фрагмента программы Var S, K: integer ;begin S :=10 S := S*2
Writeln (S) ;
End.
Решение запишите в виде трассировочной таблицы нужно

Var
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...

Я не знаю девочки или ровоыллыллыыллыыл овощи о том что такое айтыс это форма для ног в онлайн режиме нужно нажать на нем высылаю в приложении в в онлайн в в в онлайн режиме в в онлайн в в онлайн режиме я я Не ЗНАЮ КАК дела с НАШИМ ПРЕДЛОЖЕНИЕМ о том я Не ЗНАЮ КАК дела с НАШИМ ПРЕДЛОЖЕНИЕМ О том что ТАКОЕ АЙТЫС это большой плюс я Не ЗНАЮ КАК дела с НАШИМ ПРЕДЛОЖЕНИЕМ О том что я не я ыггыыг

Объем встроенной я Я не знаю Я в онлайн в хорошем качестве и я не знаю как это сделать в виде таблицы в в школу я сейчас в онлайн