Нужно написать такую программу на паскале

Конкурс Кенгуру всегда проходит в x-ый четверг марта. Самый ранний из возможных дней для проведения Кенгуру это y марта ​

Приложения:

Ответы

Ответ дал: Ziorar
0

Например так можно:

var

x,y: integer;

begin

read(x);

y:=7*(x-1)+1;

if y>31 then

write('в вашем марте многовато четвергов')

else

write(y);

end.


mapple1792: неправильно, не сходится с условием, что должно вводиться и что должно получиться из этого, я так понял что первый четверг должно принимать за первое матра, тогда сходится
Ziorar: Да вроде всё сходится (2->8 и 4->22). И расчёт сделан из того, что первый четверг- это 1-ое число (раз уж в задаче нужен самый ранний из возможных дней). У меня конечно ещё добавлена проверка на то, чтобы ответ не превышал 31 день (ну, как бы логично вроде, а то март то кончится уже).
mapple1792: к сожалению, не принимает, да и у меня значения не те выдаёт
Ziorar: Странно, что же за версия Паскаля у вас там, что аж даже такой простой расчёт не сходится. Может быть вы не копировали текст программы, а набирали вручную? Тогда возможно есть опечатка.
Ziorar: Также, если у вас там какая то автоматическая проверка, то может всё же мешать моё условие (пробуйте убрать всё от if y>31... и до else, оставить только write(y); Также может влиять другой формат переноса строк (когда уберёте условие, то потом удалите все пустые строки (у меня они возникают при вставке отсюда в Паскаль), и затем каждый перенос строки удалите и заново поставьте его).
Вас заинтересует