Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.
массив это упорядоченный набор данных одного типа, снабженных индексами.
максимальная разность двух элементов достигается тогда, когда один максимален, а другой минимален. значит задача сводится к нахождению максимального и минимального элементов массива и нахождении их разности.
<имя массива>(<индекс>) А(10) [b;e]
e-b наибольшая разность двух чисел
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
Ответ:Смотря в какой программе, если в paint, то сделать ровную линию. Если в фотошопе, то сделать ровную картинку!