Question

помогите пожалуйста

Answer 1

Первая программа:

$var\; s1,\; s2:\; real\\begin\\read(s1,\; s2);\\if(s1\; >\; s2)\; then\; writeln('Ploshyad\; kruga\; bolshe!')\\else\; writeln('Ploshyad\; kvadrata\; bolshe!');\\end.$

Вторая программа:

$var\; x,\; y:\; real;\\begin\\read(x,y);\\if(x>0\; and\; y>0)\; then\; writeln('I')\\else\; if(x<0\; and\; y>0)\; then\; writeln('II')\\else\; if(x<0\; and\; y<0)\; then\; writeln('III')\\else\; if(x>0\; and\; y<0)\; then\; writeln('IV')\\else\; writeln('Lejit\; na\; osi\; coordinat');\\end.$

Третья программа:

$var\; n:\; integer;\\begin\\read(n);\\if(n\; mod\; 2\; ==\; 0)\; then\; writeln('Da')\\else\; writeln('Net');\\end.$

Все коды программ доступны также в качестве фото.