Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
Ответ:
Графические изображения бывают растровыми и векторными. Создаются они в графических редакторах, многие из которых, такие как Gimp и Photoshop создаются послойно (состоят из нескольких слоев). Изображение может создаваться вручную с использованием инструментов, например, кисти или распылителя ( в Microsoft Paint).
Объяснение:
105(10) = 1101001(2)
358(10) = 101100110(2)
377(10)<span> = 101111001(</span><span>2)</span>
Var X,Y:real;
Begin
1Write('X = ');ReadLn(X);
if X<0 then Y:=Sqr(Sin(X))+2*X
else Y:=sqrt(X)+Sqrt(X*X+1);
Write('Y = ',Y)
End.
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
