1) дано целое число, если оно положительное то прибавить к нему 1, а если в противном случаи, то не изменять и написать результат 2) дано число от 1 до 7(ввести) В зависимости от значений напичатать дни недели пониднльник-1 и...
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++ если нужно.
Не нашли ответ?
Похожие вопросы