|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.03.2013, 06:35 | #1 (permalink) | ||
Новичок
Регистрация: 15.03.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу вычисления на языке Delphi
а)понедельник б)вторник в)*d-й день недели (если 1 января-понедельник,то d=1,если вторник -d =2,...,если воскресенье d=7).
|
||
15.03.2013, 06:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот те темы, которые по описанию схожи с вашей Помогите написать программу в Delphi Помогите написать программу на языке Си Помогите написать программу в Delphi Помогите написать программу в Delphi Pascal |
15.03.2013, 12:39 | #3 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Код:
Program For1; var D,K,Otvet:integer; begin Write('Введите целое число K (1<=k<=365) ='); readln(K); Write('Введите целое число D='); readln(D); Otvet:=((((K mod 7)+D-1)-1) mod 7)+1 ; Writeln('Otvet=',Otvet); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|