Решение данной задачи смотрите в прикрепленном скриншоте:
Program kol_dney;
var a: integer;
begin
writeln ('Введите год');
readln (a);
if a mod 4 <> 0 then writeln ('В этом году 365 дней') else
if (a mod 4 = 0) and (a mod 100 <> 0) then writeln ('В этом году 366 дней') else
if (a mod 100 = 0) and (a mod 400 <> 0) then writeln ('В этом году 365 дней');
end.
В фантастических «Путешествиях Гулливера», написанных Дж. Свифтом, рассказывается, в частности (ч. III, гл. 8), об удивительных людях, которые решили обходиться без языка и вели беседы не с помощью слов, а с помощью самих предметов, предъявляемых «собеседнику». Фантазия Свифта наделила каждого такого мудреца большим мешком, в котором он носил с собой все предметы, нужные для «разговора».
В действительности обмен информацией в человеческом обществе строится на другом, прямо противоположном принципе: адресату сообщения предъявляются вовсе не предметы, о которых идет речь, не те или иные «реальности», служащие темой сообщения, а некие заместители этих реальностей, представители их, вызывающие в сознании образ, представление или понятие об этих реальностях, в частности, и тогда, когда самих этих реальностей поблизости нет.
Double a,b,x,k;
k = ((pow(a+b,3)-cos(x*x))/(tan(x)*exp((-3)*x)+0.00275)+(sqrt(fabs(a+b)))/(<span>pow(sqrt(a+b), 1/3<span>)</span></span>));
