Як довжен девятиклассник провести лето с користю для себя тести
​

Задача №1

//Pascal
var x,y:real;
begin
  readln(x,y);
  if (x>0) and (y>0) then writeln('I четверть');
  if (x<0) and (y>0) then writeln('II четверть');
  if (x<0) and (y<0) then writeln('III четверть');
  if (x>0) and (y<0) then writeln('VI четверть');
end;
 
Задача №2

//Pascal
var a:integer;
begin
  readln(a);
  if a mod 2 =0 then writeln(' Четное')
  else writeln(' Нечетное');
  if a mod 10 =7 then writeln(' оканчивается на 7')
  else writeln(' не оканчивается на 7 ');
  if a mod 5 =0 then writeln(' делится на 5 ')
  else writeln(' не делится на 5');
 
end.

1.
Var
  a,b,c:integer;
Begin
  Write('Введите а, в, с: ');
  Readln(a,b,c);
  if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,',  ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c));
End.

2.
Var  r,a:integer;
Begin 
Write('Введите радиус круга '); 
Readln(r); 
Write('Введите сторону квадрата '); 
Readln(a); 
writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a)); 
if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата');
End.