Что будет выведено на экран после выполнения фрагмента программы:
begin
a:=3;
if a>3 then a:=5 else a:=1;
writeln (a);
end.

если первый говорит правду, то он тоже брехун и, значит, не может говорить правду, значит первый брехун, второй сказал правду, так как из них он один говорит правду, а второй брехун.

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.

папки и тэги

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

например на фото есть ромашки, кошка и собака. мы цепляем к нему теги - цветы,ромашки,кошки,собаки,животные

а вот определить в какую папку положить рисунок уже куда труднее. собаки, кошки или цветы?

потом при поиске можно указывать несколько пересекающихся тегов. ищим фотографии где есть и кошки и собаки. сделать такой же поиск по каталогам просто невероятно

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 : integet;  

begin

writeln ('vvedit # bileta');

readln (a);

t: =a div 100000;

r: =a mod 100000 mod 10000 mod 1000 mod 100 mod 10;   {барыжна строчка; )   }

n: =9; s: =0; s2: =0;

for i: =1 to n do begin        

h: =t mod i; if h=0 then s: =s+1;

h2: =r mod i;   if h2=0 then s2: =s2+1;

end;

if (h=2) and (h2=2) then writeln ('bilet shasliviy');

else writeln ('bilet obichniy tramvayniy=)');

readln

end.