var
st:string;
i,a,pr:integer;
begin
<em>readln(st,a);</em>
pr:=1;
for i:=1 to 4 <em>do</em>
pr:=pr*(ord(st[i])-ord('0'));
<em>writeln(pr mod a=0);</em>
end.<span>
</span>
Память находится в компьютере.
Солнце часть солнечной системы .
Автомобиль дороже велосипеда.
Колесо часть автомобиля.
Program n1;
const n=10;
var a: array[1..n] of integer;
i,k,sum: integer;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(21);
sum:=sum+a[i];
end;
for i:=1 to n do if a[i] > sum/n then k:=k+1;
writeln(k);
end.
Слайды могут содержать в себе - тексты, таблицы, диаграммы, рисунки, графические схемы, видео- и аудиоклипы. Слайды имеют такие свойства: 1) размер слайда 2) разметка слайда (расположение текста и т.д.) 3) дизайн оформления 4) эффект перехода от слайда к слайду!