Помогите решить, ребят
10-11 класс
|
1)
var n,i,j:integer;
begin
read(n);
for i:=n downto 1 do
begin
for j:= i downto 1 do
write(n);
writeln;
end;
end.
2)
var
a,b,n,s,i: integer;
begin
write('Vvedite a,b');
read(a,b);
s:=0;
for i := a to b do
if (i mod 3 = 0) or (i mod 5 = 0) then
begin
s:=s+1;
end;
write('kolichestvo ', s);
end.
3)
var n, k, i, q: integer;
begin
repeat
readln(n);
until n > 1;
k := n;
i := 2;
repeat
if k mod i = 0 then
begin
k := k div i;
write(i:5);
inc(q)
end
else inc(i)
until (k = 1) or (i > n div 2);
if q = 0 then writeln('Prostoe chislo');
end.
Другие вопросы из категории
1. Способы форматирования текста в Word (все способы)
2. Смысл ориентации страницы
3. Способы размещения картинки
4. Режимы просмотра документа (все режимы)
БОЛЬШОЕ СПАСИБО!
11100,0112–34,248+5А,816+42,258+11,012–3F,А16.. Укажите, какая система
счисления для выполнения всех операций является оптимальной с точки зрения
быстроты вычисления. Указание: чем больше основание системы, тем
"короче" числа и, следовательно, меньше действий
Читайте также
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
Даю 25 баллов, но если будет решены все 10.
острове каждый год появляется сундук с 100 кг золотого песка, к острову с одной стороны высаживается х пиратов, а с другой у матросов. Они дерутся за клад, в битве погибает 70% участников, 26% тяжело ранены. Монеты делятся среди оставшихся 4%. Определить количество победителей, тяжелораненых, погибших, а также количество золотого песка на 1 человека .
которых алгоритм печатает сначала 3 ,а потом 7 , решите пжл ,полностью