<<
>>

РЕШЕНИЕ ЗАДАЧ

Задания могут бътъ выполнены на любом языке программирования и в любой среде разработки. Решения приводятся на языке Pascal с использованием web-среды разработки PascalABC.NET.

Примечание: при организации ввода/вывода данных с использованием внешних файлов необходимо, чтобы эти файлы располагались в той же папке, что и файл с решением задачи.

Для удобства эти файлы желательно называть input.txt и output.txt.

Задача 1.

program Zadacha_1; var

x,n: integer; begin

read(n);

if (n998) then begin writeln('FALSE');

exit

end

else

begin

x:=(n div 100)+ ((n mod 100)div 10) +(n mod 10); if x=13 then

begin

writeln('ENTER');

exit

end

else

begin

writeln('LOCK');

exit

end;

end;

end.

Задача 2.

program Zadacha_2; var

a,b,c,x,y,z:integer; function max(q,w:integer): integer; begin if q>w

then max:=q else max:=w;

end;

begin

readln(a,b,c);

x:=a+b;

y:=a+c;

z:=b+c;

writeln(max(x,max(y,z)));

end.

Задача 3

program Zadacha_3; var

a,b,c,d,q:integer;

begin

read(a,b,c,d); a:=a+b+c+d; q:=a mod 10;

if q=1 then writeln(a,' птица')

else if (q>1) and (q5) or (q=0) then writeln(a,' птиц');

end.

Задача 4

program Zadacha_4; var

n,i,z:integer;

begin

readln(n);

z:=1;

for i:=1 to n do z:=z*2; write(z); end.

Задача 5

program Zadacha_5; var

i, j, s1, s2, st1, st2, d1, d2: integer; a:array[1..10, 1..10] of integer; hor, vert: boolean; inp, outp: text; begin

assign(inp, '/shkolnoe-obrazovanie/input.txt'); assign(outp, '/shkolnoe-obrazovanie/output.txt');

reset(inp);

rewrite(outp);

hor:=false;

vert:=false;

i:=1;

for j:= 1 to 10 do begin

read(inp, a[i, j]); s1:=s1+a[i, j]; end;

readln(inp); st1:=st1+a[1,1]; for i:= 2 to 10 do begin

for j:= 1 to 10 do begin

read(inp, a[i, j]); s2:=s2+a[i, j]; end;

st1:=st1+a[i,1]; readln(inp); if s2s1 then begin

hor:=true;

write(outp, 'Не Магический квадрат'); break; end

else

begin

s1:=s2;

s2:=0;

end;

end;

if hor=false then begin

for j:=2 to 10 do begin

for i:= 1 to 10 do begin

st2:=st2+a[i, j]; end;

if st2st1 then begin

vert:=true;

write(outp, 'Не магический квадрат');

62

break;

end

else

begin

st1:=st2;

st2:=0;

end;

end;

end;

if (hor=false) and (vert=false) then begin

for i:=1 to 10 do begin

d1:=d1+a[i, i]; d2:=d2+a[i,10-i+1]; end;

if (d1=d2) and (d1=s1) and (s1=st1) then write(outp, 'Магический квадрат')

else

write(outp, 'Не магический квадрат'); end;

close(inp);

close(outp);

end.

Задача 6

program Zadacha_6; var

i, s, count: integer; a:array[1..30]of integer; ans:real;

input, output:text; begin

assign(input,'/shkolnoe-obrazovanie/input.txt'); assign(output,'/shkolnoe-obrazovanie/output.txt'); reset(input); rewrite(output); for i:= 1 to 30 do begin

read(input, a[i]); if (a[i] mod 2 = 1) then begin

inc(count);

s:=s+a[i];

end;

end;

ans:=s/count; write(output, ans); close(input); close(output); end.

Задача 7

program Zadacha_7; var

i, s, count:integer; a:array[1..30]of integer; ans:real;

input, output:text; begin

assign(input,'/shkolnoe-obrazovanie/input.txt'); assign(output,'/shkolnoe-obrazovanie/output.txt'); reset(input); rewrite(output); for i:= 1 to 30 do read(input, a[i]); for i:= 1 to 29 do begin

if a[i]

<< | >>
Источник: И.И. Бажанский. РЕГИОНАЛЬНАЯ ПРЕДМЕТНАЯ ОЛИМПИАДА ШКОЛНИКОВ имени народного учителя Николая Николаевича Дубинина [Текст] : учебно-методическое пособие / кол. авт.; под общ. ред. канд. физ.-мат. наук И.И. Бажанского ; Владивостокский государственный университет экономики и сервиса ; Центр «Абитуриент». - Владивосток : Изд-во ВГУЭС,2015. - 96 с.. 2015

Еще по теме РЕШЕНИЕ ЗАДАЧ:

  1. Методические рекомендации по решению задач
  2. Стадии решения задач
  3. Стратегии решения задач
  4. Задачи для самостоятельного решения
  5. 2.2. Задачи для самостоятельного решения
  6. Трудности при решении задач
  7. Задачи для самостоятельного решения Задание B6
  8. 1.7. Задачи для самостоятельного решения
  9. Задачи для самостоятельного решения Задание В8
  10. 5.3. Задачи для самостоятельного решения
  11. 3.6. Задачи для самостоятельного решения
  12. 4.2. Задачи для самостоятельного решения