
Вопрос задан 01.01.2019 в 05:17.
Предмет Информатика.
Спрашивает Голота Валера.
.Дано число к (0<к<366) числу к=1 соответствует день 1 января . среда .Напишите программу
которая опред. День который соотв.введеному числу к. Ребята,умоляю очень срочно помогите решить. Пожалуйста пожалуйста пожалуйста очень прошу даю 30 баллов умоляю помогите

Ответы на вопрос

Отвечает Пономарёв Костя.
#include <iostream>
using namespace std;
int main (){
setlocale(LC_ALL,"Rus");
int dp,N,S=7;
cout<<"\n День=";
cin>>N;
while(N>S){ N=N-7;
}
dp=N;
switch(dp)
{
case 1:
cout<<"\n Среда"<<endl;
break;
case 2:
cout<<"\n Четверг"<<endl;
break;
case 3:
cout<<"\n Пятница"<<endl;
break;
case 4:
cout<<"\n Суббота"<<endl;
break;
case 5:
cout<<"\n Воскресенье"<<endl;
break;
case 6:
cout<<"\n Понедельник"<<endl;
break;
case 7:
cout<<"\n Вторник"<<endl;
break;
}
system("pause");
return 0;
}
using namespace std;
int main (){
setlocale(LC_ALL,"Rus");
int dp,N,S=7;
cout<<"\n День=";
cin>>N;
while(N>S){ N=N-7;
}
dp=N;
switch(dp)
{
case 1:
cout<<"\n Среда"<<endl;
break;
case 2:
cout<<"\n Четверг"<<endl;
break;
case 3:
cout<<"\n Пятница"<<endl;
break;
case 4:
cout<<"\n Суббота"<<endl;
break;
case 5:
cout<<"\n Воскресенье"<<endl;
break;
case 6:
cout<<"\n Понедельник"<<endl;
break;
case 7:
cout<<"\n Вторник"<<endl;
break;
}
system("pause");
return 0;
}



Отвечает Шишкина Яна.
Var
k: integer;
begin
writeln('Введите число');
readln(k);
case(k mod 7) of
1: writeln('Среда');
2: writeln('Четверг');
3: writeln('Пятница');
4: writeln('Суббота');
5: writeln('Воскресенье');
6: writeln('Понедельник');
0: writeln('Вторник');
end;
end.
k: integer;
begin
writeln('Введите число');
readln(k);
case(k mod 7) of
1: writeln('Среда');
2: writeln('Четверг');
3: writeln('Пятница');
4: writeln('Суббота');
5: writeln('Воскресенье');
6: writeln('Понедельник');
0: writeln('Вторник');
end;
end.


Топ вопросов за вчера в категории Информатика

Информатика 566

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

Информатика 23
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili