1. Какова функция слоев в графике? 2. Как создавать слои в программе Paint. Net? 3. Что нужно сделать, чтобы слои стали невидимыми? 4. Объясните функцию волшебной палочки. 5. Создайте чертеж (дизайн) дома, используя инструменты слоев и фигур.
Точная задача по Техническому Заданию: var x,y:integer; begin writeln('введите два числа'); readln(x); readln(y); if (x<1000000001) and (y<1000000001) and (x>0) and (y>0) then writeln('сумма чисел =',x+y) else writeln('диапазон чисел неверный'); end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу: var x,y:integer; s:string; begin randomize; writeln('взять ли числа случайными? ответ да или нет'); readln(s); if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin x:=random(1000000000); y:=random(1000000000); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y); end else begin writeln('введите два числа'); readln(x); readln(y); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y); end; end.
Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.