Задание 1. Подсчитайте, сколько на данном рисунке клеток, для которых истинно условие: а) сверху стена б) слева свободно в) клетка чистая - - г) слева стена и сверху стена д) слева стена или справа стена е) клетка чистая и слева свободно ж) клетка чистая или слева свободно

нет. компьютер может выполнять команды (программы) которые дает ему человек, сам по себе он работать не может, следовательно он не сможет заменить человека.

a в квадрате плюс b в квадрате:  

;

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

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.