Прикладное по для программирования
Чтобы передавать информацию разного рода между удаленными устройствами связи
Begin
while true do begin
writeln(random(1000));
end
end.
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n:integer;
begin
readln(n);
for i:=1 to n do writeln(i,'*',i,' = ',i*i);
end.