Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program xxx;
var a, b: real;
begin
writeln('введите количество миль');
readln(a);
b: = a*1.6;
writeln('кол-во киллометров - ',b)
end.
var
n: integer;
readln(n);
writeln(abs(n)-2);
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
картинка должна быть в папке с программой и быть в формате bmp
usesgraphabc;
varn: string; b: picture; s: integer;
beginwriteln('введите расстояние до зеркала'); 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.
Популярные вопросы