*) program 78; var i, m,k:integer:
constar array 1.17) of integer - (-17,
-3, -6,0, 1, 2);
begin
3:0 0; :-)
for 1:-1 to 2 do
begin
If a[i]>0 then : m:=m+1;
IF a[i]<0 then n:=n+1;
If a[i]=0 then : k:=k+1
and:
Writeln (m= m
End
196
297
Ответы на вопрос:
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет) program zd; const b=26; var a,c: byte; begin writeln('введите день'); readln(a); if a< b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни} c: =b-a else {иначе вывести смс} writeln('данный день уже прошёл'); writeln('осталось', с, 'дней'); end. вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Популярно: Информатика
-
AvgustinaQueen18.08.2022 01:57
-
limka1330.05.2022 19:41
-
Albert11630.07.2022 22:51
-
ЖеняРай01.05.2023 12:16
-
jokerlytvinenkо15.07.2021 08:40
-
ocnovavladimir11.05.2023 08:04
-
dezmond199206.12.2022 03:58
-
sasharudich24.09.2021 17:51
-
Kamaria08601.06.2020 16:01
-
OшUb0чkA16.04.2020 11:45