Я так понимаю что текстовые данные нужно преобразовать в рисунок и наоборот. т.е. написано: мой мобильный телефон - рисуй сврй телефон. или нарисован кот - ты и пиши что это кот.
Ответ:
program Calc2;
uses
Math;
var
x, y: Real;
begin
Write ('X = ');
ReadLn (x);
y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));
WriteLn ('Результат = ', y);
ReadLn;
end.
Объяснение:
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ
var a,a1,a2,x,c,i: integer;
begin
write('Введите x = ');
readln(x);
writeln('Введите a1 и a2:');
readln(a1,a2);
for a:=a1 to a2 do
begin
c:=a*x;
writeln(a,' * ',x,' = ',c);
end;
end.
Пример:
Введите x = 5
Введите a1 и a2:
2 7
2 * 5 = 10
3 * 5 = 15
4 * 5 = 20
5 * 5 = 25
6 * 5 = 30
7 * 5 = 35
Var x1,x2,y1,y2:integer;
beginwrite('Введите координаты х и у ферзя: ');
readln(x1,y1);
write('Введите координаты х и у фигуры: ');
readln(x2,y2);
if (abs(x1-x2)=abs(y1-y2)) or (x1=x2) or (y1=y2) then
writeln('YES') else writeln('NO')
<span>end.</span>