Var a, b: integer;
begin
write('Введите два числа: ');
read(a, b);
writeln(a, ' + ', b, ' = ', a + b);
writeln(a, ' - ', b, ' = ', a - b);
writeln(a, ' * ', b, ' = ', a * b);
writeln(a, ' / ', b, ' = ', a / b);
<span>end.</span>
1) Правая кнопка мыши на рабочем столе - Создать - Документ Microsoft Office Word
2) Пуск - Все программы - Microsoft Office - Microsoft Office Word
For i:=1 to n do begin
if not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else
k:=a[i];
end;
for i:=1 to n do
if (a[i]<k) and (a[i]<>1) then
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.
Необходимо построить лепестковую диаграмму по десяти координатам, причем, все четные (по порядку) значения должны быть равны между собой и равны половине нечетных. Т.е. если пять нечетных значений равны 10, то пять четных должны быть равны 5. Пример с данными для построения этой диаграммы прилагается.