С++ СИРИУС Отрезок На клетчатой бумаге нарисовали отрезок, соединяющий точки с координатами (a,b) и - id2009051720210120 от bdoyan1994 20.01.2021 02:57

Question

Информатика: С++ СИРИУС Отрезок На клетчатой бумаге нарисовали отрезок, соединяющий точки с координатами (a,b) и (c,d). Через сколько клеток проходит этот отрезок (считается, что отрезок проходит через клетку, если он проходит через её внутренность, если же он проходит только через вершину или по границе клетки, считается, что он не проходит через клетку)? Входные данные Программа получает на вход четыре целых числа, записанных в одной строке: a,b,c,d. Все числа по модулю не превосходят 106. Выходные данные

bdoyan1994 · Accepted Answer

Первая:
program qwer;
uses crt;
var i, kol : integer;
Begin
kol := 10;
for i := 10 downto 1 do
begin
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят резвились на просторе.');
writeln(kol,' Один из них утоп – его сложили в гроб,');
kol := kol - 1;
writeln('И вот вам результат – ',kol,' поросят…');
end;
End.
Вторая:
program qwer;
uses crt;
var i, pr, n : integer;
Begin
readln(n);
pr := 1;
for i := 1 to n do
pr := pr * i;
write(pr);
End.
Третья:
program qwer;
uses crt;
var s, i : integer;
Begin
s := 115;
for i := 1 to 9 do
writeln(i * 100,'г = ',i * 100 * s / 1000,'руб');
End.
Готово!

MOGZ ответил