Интернет вреден для глаз но при этом можно узнать много полезной информаций а если сидеть по 15 мин.вдень не чего не встанет можночитать книги проходить тесты и естественно поиграть в логические игры

0 0

1 год назад

Написать программу в паскаль(с помощью множественного выбора), которая получает день и номер месяца и определяет дату следующего

АнМас

Var n,m:interer;
Begin
write('Введите день') ; Readln(d);
write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then writeln('День - 1',' Месяц - 3'); if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end; if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
readln;
end.
НЕДОРАБОТАНА

0 0

4 года назад

Перевести в 10-чную с/с а) 11010011 2 Б) 111010 2 В) 413 6 Г)275 8 Д) ЗВВ 16 СРОЧНО 20 баллов

Алина В

А)211
Б)58
В)135
Г)153
Д)955

0 0

1 год назад

Прочитать ещё 2 ответа