РЕШЕНИЕ ЗАДАЧ
Задания могут бътъ выполнены на любом языке программирования и в любой среде разработки. Решения приводятся на языке 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, 'input.txt'); assign(outp, '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,'input.txt'); assign(output,'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,'input.txt'); assign(output,'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]
Еще по теме РЕШЕНИЕ ЗАДАЧ:
- Методические рекомендации по решению задач
- Стадии решения задач
- Стратегии решения задач
- Задачи для самостоятельного решения
- 2.2. Задачи для самостоятельного решения
- Трудности при решении задач
- Задачи для самостоятельного решения Задание B6
- 1.7. Задачи для самостоятельного решения
- Задачи для самостоятельного решения Задание В8
- 5.3. Задачи для самостоятельного решения
- 3.6. Задачи для самостоятельного решения
- 4.2. Задачи для самостоятельного решения