Другие языки | задача по информатике
BuyLead
Всем добрый день.
Нужно решить одну задачу по информатике.
Был бы очень признателен тому, кто поможет решить, а еще лучше если объяснит как ее решать.
------
59313_14c1fd7b8b4640ee84e18eed276c929e.jpg (71.9 Kb)
Скачиваний: 191
________
посл. ред. 22.10.2018 в 17:21; всего 2 раз(а); by Mickey_Man
Mickey_Man Нужно решить одну задачу по информатике.
Был бы очень признателен тому, кто поможет решить, а еще лучше если объяснит как ее решать.
Изображение
------
59313_14c1fd7b8b4640ee84e18eed276c929e.jpg (71.9 Kb) Скачиваний: 191
________
посл. ред. 22.10.2018 в 17:21; всего 2 раз(а); by Mickey_Man
var a,h,i,j,k:integer;
begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
readln(a,h);
k:=0;
// (x-x1)/(x2-x1)=(y-y1)/(y2-y1)
for i:=1 to a-1 do
for j:=1 to h-1 do
if ((i-0)/(trunc(a/2)-0)>(j-0)/(h-0)) and
((i-a)/(trunc(a/2)-a)>(j-0)/(h-0)) then k:=k+1;
writeln(k);
end.
Release begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
readln(a,h);
k:=0;
// (x-x1)/(x2-x1)=(y-y1)/(y2-y1)
for i:=1 to a-1 do
for j:=1 to h-1 do
if ((i-0)/(trunc(a/2)-0)>(j-0)/(h-0)) and
((i-a)/(trunc(a/2)-a)>(j-0)/(h-0)) then k:=k+1;
writeln(k);
end.
