В разделе «стили фигур» есть справа клавиши: «заливка», «границы фигур», «изменить фигуру», переводя курсор по палитре цветов можно наблюдать как изменится вид фигуры.
Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.
Код:
program school7;
Var a:Integer;
begin
Write('Введите число>> ');
ReadLn(a);
Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');
end.
Program n_6;
const
n=10;
var
m:array[1..n] of integer;
i,x,y,z:integer;
procedure nod(a,b:integer; var c:integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
begin
Writeln('Введите 10 двухзначных целых чисел');
for i:=1 to n do Read(m[i]);
x:=m[1];
for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
Writeln('НОД=',x)
end.
= это сравнение
:= это оператор присваивания
алг
нач цел б,ср=0, цел таб а[1:20]
нц
для б от 1 до 20
а[б]:=int(rnd(20))
ср:=ср+а[б]
кц
вывод (ср/20)
<span>кон</span>