Количество дней в месяце варьируется от 28 до 31. Очередная ваша про- грамма должна запрашивать у пользователя название месяца и отобра-
жать количество дней в нем. Поскольку годы мы не учитываем, для фев-
раля можно вывести сообщение о том, что этот месяц может состоять как
из 28, так и из 29 дней, чтобы учесть фактор високосного года.

рождения 30.05.95

300

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.

языки программированияязык программирования - это система обозначений, служащая для точного описания программ или алгоритмов для эвм. языки программирования являются искусственными языками. от естественных языков они отличаются ограниченным числом “слов” и строгими правилами записи команд (операторов). поэтому при применении их по назначению они не допускают свободного толкования выражений, характерного для естественного языка.можно сформулировать ряд требований к языкам программирования и классифицировать языки по их особенностям.основные требования, предъявляемые к языкам программирования: наглядность - использование в языке по возможности уже существующих символов, хорошо известных и понятных как программистам, так и пользователям эвм; единство - использование одних и тех же символов для обозначения одних и тех же или родственных понятий в разных частях алгоритма. количество этих символов должно быть по возможности минимальным; гибкость - возможность относительно удобного, несложного описания распространенных приемов вычислений с имеющегося в языке ограниченного набора изобразительных средств; модульность - возможность описания сложных алгоритмов в виде совокупности простых модулей, которые могут быть составлены отдельно и использованы в различных сложных алгоритмах; однозначность - недвусмысленность записи любого алгоритма. отсутствие ее могло бы к неправильным ответам при решении [].в настоящее время в мире существует несколько сотен реально используемых языков программирования. для каждого есть своя область применения.

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.