Написать программки...

[::AYGIZ::]

а) программа которая выводит на экране все четырехзначные числа, сумма цифр которых равна 7

б) программа запрашивает ввод координат трех точек на плоскости (координат x,y); проверяет принадлежат ли три точки одной прямой; выводит результат в словестной форме.

[Chudo4258]

function sum(n:integer):boolean;
begin
 if n mod 10 + n div 10 mod10 + n div 100 mod 10 + n div 1000 = 7 then sum:=true
                                         else sum:=false;
end;

begin
for i:=1000 to 9999 do
 if sum(i) then writeln(i);
end.

вот за что тут деньги брать? если только попросить положить 50р на телефон.

[Rin]

Супер Альтруист не дремлет...на которого класть хотели свой детородный орган мимо проходящие. Но сейчас не об этом.

type r=record
       x:integer;
       y:integer;
       end;
var
a,b,c:r;
begin

readln(a.x);readln(a.y);
readln(b.x);readln(b.y);
readln(c.x);readln(c.y);
if a.x=b.x and a.y=b.y then exit;
if a.x=b.x and c.y=c.y then exit;
if c.x=b.x and c.y=b.y then exit;

if (b.y-a.y)/(c.y-a.y)=(b.x-a.x)/(c.x-a.x) then write('ja, ja, gut')
else write('nein! Hitler kaputt!');

end.

[::AYGIZ::]

Спасиба большое))