Предмет: Информатика,
автор: rebrovavlada
1) дано целое число, если оно положительное то прибавить к нему 1, а если в противном случаи, то не изменять и написать результат
2) дано число от 1 до 7(ввести)
В зависимости от значений напичатать дни недели пониднльник-1 и т.д.
Ответы
Автор ответа:
0
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++ если нужно.
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++ если нужно.
Похожие вопросы
Предмет: Черчение,
автор: ЕдинорожекЛиза
Предмет: Другие предметы,
автор: zaremakalsynov
Предмет: Русский язык,
автор: ащиза
Предмет: Алгебра,
автор: sashashtalikov
Предмет: Биология,
автор: Kotik421