1) дано целое число, если оно положительное то прибавить к нему 1, а если в противном случаи, то не изменять и написать результат
2) дано число от 1 до 7(ввести)
В зависимости от значений напичатать дни недели пониднльник-1 и т.д.
2) дано число от 1 до 7(ввести)
В зависимости от значений напичатать дни недели пониднльник-1 и т.д.
More Questions From This User See All
Answers & Comments
Verified answer
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++ если нужно.