1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Дано равносторонний треугольник со стороной a. Найти, длину стороны равнобольшого ему квадрата. Вычислить для таких значений:
Цитата
a) a=7; b) a=13 c) a=54
Написать программу, которая определяет, можно ли построить треугольник со сторонами a, b, і c. Написать программу для определения квартала года по порядковому номеру месяца. Найти количество чисел кратных 7 от 7 до 7777 включительно.
Цитата
a) Используя цикл for; b) Используя цикл while; c) Используя цикл repeat
Найти среднее арифметическое всех целых положительных чисел меньше числа n включительно. Вычислить для
Цитата
a) n=5; b) n=20; c) n=156
Написать программу нахождения суммы чисел: S=10+22+32+…+n2, если
Цитата
a) n=7; b) n=10; c) n=12
Найти остаток от деления натурального числа a на натуральное число b путём последовательного вычитания от числа a числа b.
Натуральное число называется идеальным, если оно равно суме всех своих делителей, кроме самого числа. Проверить, будет ли число n идеальным.
{program N_29; const n=10; var c,a:array[1..n] of integer; i:integer; begin for i:=1 to n do begin c[i]:=random(9)+1; write(c[i],' '); end; writeln; for i:=1 to n do begin if i mod 2=0 then a[i]:=c[i] div 2 else a[i]:=2*c[i]; write(a[i],' '); end; readln; end.}
{program N_30; const n=10; var a,b:array[1..n] of integer; i:integer; begin writeln; for i:=1 to n do begin a[i]:=random(9)-4; write(a[i],' '); end; writeln; for i:=1 to n do begin b[i]:=random(9)-4; write(b[i],' '); end; writeln; for i:=n downto 1 do if a[i]>0 then begin a[i]:=b[2];break; end; for i:=1 to n do write(a[i],' '); readln; end.}
{program N_31; const n=10; var a:array[1..n] of integer; x,i,k:integer; begin k:=0; for i:=1 to n do begin write('-> '); readln(a[i]); end; writeln; write('Input X -> ');readln(x); for i:=1 to n do if x<a[i] then k:=k+1; if k=n then write('DA') else write('NET'); readln; end.}
{program N_32; const n=10; var a:array[1..n] of integer; i:integer; begin randomize; for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); end; writeln; for i:=1 to n do begin if i mod 2=0 then a[i]:=a[i] div a[1]; write(a[i],' '); end; readln; end.}
{program N_33; const n=10; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); end; writeln; for i:=1 to n do begin if i mod 2<>0 then a[i]:=sqr(i); write(a[i],' '); end; readln; end. }
{program N_34; const n=10; var a:array[1..n] of integer; b:array[1..n] of real; i,S:integer; begin for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); S:=S+a[i]; end; writeln; for i:=1 to n do begin b[i]:=S/a[i]; write(b[i]:1 :1,' '); end; readln; end. }
{program N_35; const n=10; var a:array[1..n] of integer; min,max,i,k,j:integer; begin randomize; for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); end; writeln; min:=a[1];max:=a[1]; for i:=1 to n do begin if a[i]<min then begin min:=a[i];k:=i;end; if a[i]>max then begin max:=a[i];j:=i;end; end; if k<j then for i:=k+1 to j-1 do a[i]:=0 else for i:=j+1 to k-1 do a[i]:=0; for i:=1 to n do write(a[i],' '); readln; end.}
{program N_36; const n=10; var a:array[1..n] of integer; b,i,S:integer; begin write('Input b -> ');readln(B); for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); if a[i]>b then S:=S+a[i]; end; writeln; write('Sum: ',S); readln; end. }
{program N_37; const n=10; var a,b:array[1..n] of integer; i,max,c,k:integer; begin for i:=1 to n do begin a[i]:=random(9)+1; write(a[i],' '); end; writeln; max:=a[1]; for i:=1 to n do if a[i]>max then begin max:=a[i];k:=i; end; c:=a[k];a[k]:=a[n];a[n]:=c; for i:=1 to n do begin b[i]:=a[i]; write(b[i],' '); end; readln; end. }
{program N_38; const n=10; var a:array[1..n] of integer; i,S:integer; begin S:=0; for i:=1 to n do begin a[i]:=random(20); write(a[i],' '); if (a[i] mod 2=0) and (a[i]<>0) then S:=S+i; end; writeln; write('Summa: ',S); readln; end. }
{program N_39; const n=10; var a:array[1..n] of integer; i,S:integer; begin S:=0; for i:=1 to n do begin a[i]:=random(20); write(a[i],' '); if (a[i] mod 2=0) and (a[i]<>0) and (i mod 2=0) then S:=S+a[i]; end; writeln; write('Summa: ',S); readln; end. }
--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95