1) дано целое число, если оно положительное то прибавить к нему 1, а если в противном случаи, то не изменять и написать результат
2) дано число от 1 до 7(ввести)
В зависимости от значений напичатать дни недели пониднльник-1 и т.д.
Pascal:
1)
var a:integer;
begin
readln(a);
if a>0 then a:=a+1;
writeln(Ответ:,a);
end.
2)
var a:integer;
begin
readln(a);
case a of
1:writeln(Понедельник);
2:writeln(Вторник);
3:writeln(Среда);
4:writeln(Четверг);
5:writeln(Пятница);
6:writeln(Суббота);
7:writeln(Воскресенье)
else writeln(Ошибка);
end;
end.
//Могу написать тоже самое на c++ если нужно.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
