СРОЧНООООчто не так с программой Pascal?задание:ввести номер месяца и номер денька,
СРОЧНОООО
что не так с программкой Pascal?
задание:
ввести номер месяца и номер денька, вывести число дней, оставшихся до Нового года.
var m,d,k,i:integer;
begin
writeln('Введите номер месяца');
readln(m);
writeln('Введите денек');
readln(d);
case m of
2: d:=28;
4,6,9,11: d:=30;
1,3,5,7,8,10,12: d:=31;
end;
for i:=1 to m-1 do k:=k+d;
k:=365-k-d;
writeln('До Нового года осталось ' ,k,' дней ');
end.
var
m, d, k, i, tmp: integer;
begin
writeln('Введите номер месяца');
readln(m);
writeln('Введите денек');
readln(d);
for i := 1 to m - 1 do
begin
case i of
2: tmp := 28;
4, 6, 9, 11: tmp := 30;
1, 3, 5, 7, 8, 10, 12: tmp := 31;
end;
k := k + tmp;
end;
k := 365 - k - d;
writeln('До Нового года осталось ', k, ' дней ');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.