Задания для олимпиады по информатике 7-11 классы школьный этап

Решения

9-11

Возможное решение

Задача 1.

Program p1;

uses crt;

var x,y,n:longint;

begin

clrscr;

readln(x,y,n);

if (x

begin if y=n then writeln (y-x)

else writeln (n-x) end;

if (y

begin if x=n then writeln (x-y)

else writeln (n-y) end;

if (nx then

writeln (y-n) else writeln (x-n) end;

end.

Возможное решение

Задача2.

Program p2;

uses crt; var

a,b :real; begin clrscr;

write('y=a*x+b: введите a и b ...');

readln(a,b);

if (a=0) or (b=0)

then writeln('Треугольника не существует!')

else begin

if (a0) and (b0)

then writeln ('Треугольник находится во II четверти.') else if (a0) and (b

then writeln ('Треугольник находится в IV четверти.') else if (aand (b0)

then writeln ('Треугольник находится в I четверти.') else if (aand (b

then writeln ('Треугольник находится в III четверти.');

end; end.

Возможное решение

Задача 3

Program p3;

uses crt;

var m, n, x, d, f: integer;

begin

clrscr;

f:=0;

read(m, n); d:=10;

for x:=m to n do begin

while d

if x*x mod d = x then begin

f:=1;

writeln(x) end end;

if f=0 then writeln (f);

end.