<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
Program P1;
var l,r,a,b:real;
begin
readln(l,a,b);
r:=l/(2*pi);
if a*a+b*b<r*r then writeln('YES')
else writeln('NO');
end.
Пример:
20 3 4
NO
1 Алгоритмом шифрования и сжатия информации.
2 Растровые файлы обычно многоцветны и большие (фото, сканы), поэтому в несжатом виде занимают много места
3 JPEG, GIF, BMP (с сомнениями), GIF и PNG
4 Одна из программ не подчиняется стандартам формата.
5 Изменением палитры цветов и размера изображения.
6. Растр BMP GIF TIFF PCX
Вектор CDF WMF
Смешанные PSD EPS
Другое DXF
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.