Дано равносторонний треугольник со стороной a. Найти, длину стороны равнобольшого ему квадрата. Вычислить для таких значений:
program new;
uses wincrt;
var summ,n,k,i:integer;
c:real;
begin
writeln('Вычисление среднего арифметического');
writeln('введите кол-во чисел');
readln(i);
summ:=0;
c:=0;
n:=1;
for k:=1 to i do
begin
summ:=summ+n;
inc(n);
end;
c:=summ/i;
writeln('Ответ',c:5:1);
end.
program new14;
uses wincrt;
var a,b:integer;
begin
writeln('введите номер месяца');
readln(a);
case a of
1:b:=1;
2:b:=1;
3:b:=1;
4:b:=2;
5:b:=2;
6:b:=2;
7:b:=3;
8:b:=3;
9:b:=3;
10:b:=4;
11:b:=4;
12:b:=4;
end;
writeln('Квартал',b:1);
end.
program new4;
uses wincrt;
var a,b,c,d,e:integer;
begin
d:=0;
c:=0;
e:=0;
writeln('введите A и B');
readln(a,B);
c:=a div b;
e:=a;
for d:=1 to (a div B) do
begin
e:=e-b;
end;
writeln('Остаток',e:5);
end.
AlaRic, а не прощи ли так:
while a>=b do a:=a-b;
усе в "a" остаток от деления a на b...... ;)
Найти среднее арифметическое всех целых положительных чисел меньше числа n включительно.
Сумма всех положит. целых чисел от 1 до n будет (как арифметич-я прогрессия)
1+n
----*n
2
Среднее арифметическое - сумма всех чисел делить на n, итого (1+n)/2
И не надо никаких циклов...
var n:integer;
begin
Write('До какого числа?'); ReadLn(n);
WriteLn('Ответ:',(1+n)/2:5:5){А почему-то :0:0 у меня не проходит ???}
end.
10+22+32+...+n2=?
Снова рОдная арифметическая прогрессия: 22+32+42+...(ну ещё +10)
22+32+...=(22+10n+2)*(n-1)/2=(12+5n)(n-1)
var n:integer;
begin
ReadLn(n);WriteLn(10+(12+5*n)*(n-1))
end.
Вроде правильно :D
Прикольно, а я и не знал, что тут ещё одна моя тема есть Ладно, оставляю тут задачку может тут кто-то решит...
Даны натуральное число N и последовательность A1, A2, …,A N, AN+1. Определить наибольшее из нечетных и количество четных чисел, входящих в последовательность A1, A2, …,A N, AN+1.
И ещё одна задачка, в которой я условие не догоняю, обясните:
Дана последовательность из 50 чисел. Найти их среднее арифметическое. Найти сколько среди них отличных от последнего числа.
Найти сколько среди них отличных от последнего числа. ЧТо енто значит?
Clane, спасибо огромное! ;)
Ivs, неа это лабораторные работы мне в универе задают, хочу в них раздуплиться. Это может препод мой оттудова их черпает ;D
Добавлено (5.12.02 22:31):
Ivs, напиши всю задачу, что-то не могу я раздуплиться...
Вот ещё задачи, которые срочно нужно решить:
1. Найти все трехзначные числа, которые состоят из разных цифр, а их сумма равна А
(А вводить с клавиатуры).
2.Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N.
3.Написать программу поиска двузначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число.
4.Написать программу поиска трехзначных чисел, квадрат которых оканчивается тремя цифрами, составляющими исходное число.
5.Написать программу поиска четырехзначною числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111.
6. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся с клавиатуры).
7.Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8.
8.В трехзначном числе зачеркнули старшую цифру, когда полученное двузначное число умножили на 7, то получили данное число. Найти это число.
9.Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
10.четырехзначных чисел выбрать те, у которых все четыре цифры различны.
11.Среди двузначных чисел найти те, которые делятся на число q, а сумма их цифр равна п (0 < п <= 18 ).
12.Дано четырехзначное число n. Выбросить из записи числа п цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19.
13.Дано натуральное число. Найти все его делители и их сумму.
14.данного натурального числа удалить все цифры А (А вводится с клавиатуры).
15.Найти количество делителей натурального числа. Сколько из них четных?
16.Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенсто: a2 * b = c2
17.Произведение N первых нечетных чисел равно Р. Сколько сомножителей взято.
18.Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены. Оба массива вывести на экран.
19.Даны натуральное число N и последовательность A1, A2, …,A N. Определить количест-во вхождений N в данную последовательность (N – вводится с клавиатуры).
20.Даны натуральное число N и последовательность A1, A2, …,A N. Определить наимень-шее положительное среди A1, A2, …,A N и найти сумму отрицательных.
21.Дана последовательность из 50 чисел. Найти их среднее арифметическое. Найти сколько среди них отличных от последнего числа
22.Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последова-тельности.
23.Дана последовательность из n вещественных чисел. Все элементы последовательности с четными номерами, предшествующие первому по порядку элементу с наибольшим значением, домножить на него.
24.Дана последовательность из n вещественных чисел. Найти номер первого вхождения данного числа в последовательность или вывести сообщение, что такого числа нет.
25.Дана последовательность из n вещественных чисел. Найти номер последнего вхожде-ния данного числа в последовательность или вывести сообщение, что такого числа нет.
26.Дана последовательность из n действительных чисел. Получить числа b1,...,bn, где bi - среднее арифметическое всех элементов исходной последовательности, кроме i - того элемента.
27.Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.
28.Дана последовательность из n целых чисел. Заполнить ее с помощью генератора слу-чайных чисел. Найти: сумму положительных элементов, значения которых меньше 10; вывести индексы тех элементов, значения которых кратны 3 и 5.
29.Из элементов массива С сформировать массив А той же размерности по правилу: если номер четный, то Ai = Ci2, если нечетный, то Ai = 2Ci
30.Заменить последний положительный элемент массива А на второй элемент массива В. Вывести на экран оба массива.
31.Проверить является ли, введенное с клавиатуры число Х, меньше всех элементов мас-сива А.
32.Разделить все элементы с четными номерами на первый элемент, создав при этом но-вый массив. Вывести оба массива. Заполнение с помощью генератора случайных чи-сел.
33.Заменить элементы с нечетным номером на квадрат их номера. Вывести оба массива. Заполнение с помощью генератора случайных чисел.
34.Присвоить элементам массива В результат отношения суммы элементов массива А к соответствующим элементам массива А. Вывести оба массива. Заполнение с помощью генератора случайных чисел.
35.Заменить нулями элементы между минимальным и максимальным, кроме них самих.
36.Найти сумму элементов массива А, больших данного числа В (В вводить с клавиату-ры). Вывести массив А и сумму.
37.Поменять местами максимальный элемент массива и последний. При этом сформиро-вать новый массив. Вывести оба массива.
38.Вывести сумму номеров четных элементов, а так же сам исходный массив.
39.Найти сумму всех четных элементов массива, стоящих на четных местах. Вывести сумму и исходный массив.
Держи пока старую, что просил..........
Вместо рожиц следует читать "8 )"
{program N_1;
var
i1,i2,i3,A:integer;
begin
ClrScr;
write('Input A -> ');readln(A);
for i1:=1 to 9 do
for i2:=0 to 9 do
for i3:=0 to 9 do
if (i1<>i2) and (i1<>i3) and (i2<>i3) then
if (i1+i2+i3)=A then write(i1,i2,i3,' ');
readln;
end. }
{program N_2;
var
i1,i2,i3,N:integer;
begin
write('Input N -> ');readln(N);
for i1:=1 to 9 do
for i2:=0 to 9 do
for i3:=0 to 9 do
if i1+i2+i3=N then write(i1,i2,i3,' ');
readln;
end.}
{program N_3;
var
i,k,m
integer;
begin
for i:=10 to 99 do
begin
k:=i;
m:=k mod 10;
k:=k div 10;
if (m+k)+sqr(m+k)=i then write(i,' ');
end;
readln;
end.}
{program N_4;
var
i,k:longint;
begin
for i:=100 to 999 do
if (sqr(i) mod 1000) =i then write(i,' ');
readln;
end. }
{program N_5;
var
i:integer;
begin
for i:=1000 to 9999 do
if (i mod 133=125) and (i mod 134=111) then write(i,' ');
readln;
end.}
{program N_6;
var
i,a,b,S:integer;
begin
write('Input A -> ');readln(a);
write('Input B -> ');readln(B);
S:=0;
for i:=a to b do
if i mod 4 =0 then S:=S+i;
write('Summa : ',S);
readln;
end.}
{program N_7;
var
i:integer;
begin
for i:=21 to 99 do
if (i mod 3=0) and (i mod 10=2) or (i mod 10=4) or (i mod 10=8) then write(i,' ');
readln;
end.}
{program N_8;
var
i:integer;
begin
for i:=100 to 999 do
if (i mod 100)*7=i then begin write(i,' ');break; end;
readln;
end. }
{program N_9;
var
i1,i2,i3,k:integer;
begin
for i1:=1 to 9 do
for i2:=0 to 9 do
for i3:=0 to 9 do
begin
k:=i1*100+i2*10+i3;
if ((i1+i2+i3) mod 7=0) and (k mod 7=0) then write(i1,i2,i3,' ');
end;
readln;
end. }
{program N_10;
var
i1,i2,i3,i4:integer;
begin
for i1:=1 to 9 do
for i2:=0 to 9 do
for i3:=0 to 9 do
for i4:=0 to 9 do
if (i1<>i2) and (i1<>i3) and (i1<>i4) and (i2<>i3) and (i2<>i4) and (i3<>i4) then write(i1,i2,i3,i4,' ');
readln;
end. }
{program N_11;
var
i1,i2,q:integer;
begin
write('Input q -> ');readln(q);
for i1:=1 to 9 do
for i2:= 0 to 9 do
if ((i1*10+i2) mod q=0) and (i1+i2>0) and (i1+i2<18) then write(i1,i2,' ');
readln;
end.}
{program N_12;
var
code:integer;
n,i:longint;
s:string;
begin
write('Input n -> ');readln(n);
str(n,s);
i:=1;
while i<=length(s) do
begin
if (s[i]='0') or (s[i]='5') then begin delete(s,i,1);i:=i-1; end;
i:=i+1;
end;
val(s,n,code);
write(n);
readln;
end.}
{program N_13;
var
i,n,s:integer;
begin
write('Input n -> ');readln(n);
S:=0;
for i:=1 to n-1 do
if (n mod i=0) then begin write(i,' '); S:=S+i;end;
writeln;
write('Summa=',S);
readln;
end.}
Ну что поехали дальше.......
{program N_14;
var
i,A,code:integer;
n:longint;
nn,aa:string;
begin
write('Input n -> ');readln(n);
write('Input A -> ');readln(a);
i:=1;
str(n,nn);str(a,aa);
while i<=length(nn) do
begin
if nn[i]=aa then begin delete(nn,i,1);i:=i-1;end;
i:=i+1;
end;
val(nn,n,code);
writeln(n);
readln;
end. }
{program N_15;
var
i,k,m,n:integer;
begin
write('Input n -> ');readln(n);
k:=0;m:=0;
for i:=1 to n-1 do
if n mod i=0 then
begin
k:=k+1;
if i mod 2 =0 then m:=m+1;
end;
writeln('Delit -> ',k);
writeln('Delit Chet -> ',m);
readln;
end.}
{program N_16;
var
i,a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a in [1..20]) and (b in [1..20]) and (c in [1..20]) then
if 2*a*b=2*c then writeln(a,' ',b,' ',c);
readln;
end. }
{program N_18;
const n=10;
var
i:integer;
a:array[1..n] of 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 a[i] mod 2<>0 then a[i]:=a[i]*2;
write(a[i],' ');
end;
readln;
end.}
{program N_19;
var
i,n,k:integer;
a:array[1..100] of integer;
begin
write('Input n (n<=100) -> ');readln(n);
k:=0;
for i:=1 to n do
begin
write('-> ');
readln(a[i]);
if a[i]=n then k:=k+1;
end;
write(k);
readln;
end. }
{program N_20;
const n=10;
var
i,min,S:integer;
a:array[1..n] of integer;
begin
S:=0;
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
end;
min:=32767;
for i:=1 to n do
begin
if a[i]>0 then
if a[i]<min then min:=a[i];
if a[i]<0 then S:=S+a[i];
end;
writeln;
writeln('Min pol -> ',min);
writeln('Summ otriz -> ',S);
readln;
end.}
{program N_21
uses crt;
const n=10;
var a:array[1..n] of integer;
i,S,k:integer;
begin
ClrScr;
S:=0; k:=0;
for i:=1 to n do
begin
a[i]:=random(10)+1;
write(' ',a[i]);
S:=S+a[i];
end;
for i:=1 to n-1 do
if a[i]<>a[n] then k:=k+1;
writeln;
writeln('Sred arifmet: ',(S/n):0:2);
writeln('Otl ot Poslednego: ',k);
readln;
end. }
{program N_22;
const n=10;
var
i,k:integer;
a:array[1..n] of real;
begin
k:=0;
for i:=1 to n do
begin
write('-> ');
readln(a[i]);
end;
for i:=1 to n do
if a[i]=i then k:=k+1;
write('Otvet: ',k);
readln;
end. }
{program N_23;
const n=10;
var
a:array[1..n] of real;
i,k:integer;
max:real;
begin
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i]:3 :1,' ');
end;
for i:=1 to n do
if a[i]>max then begin max:=a[i];k:=i; end;
for i:=1 to k-1 do
if i mod 2=0 then a[i]:=a[i]*max;
writeln;
for i:=1 to n do write(a[i]:3 :1,' ');
readln;
end.}
{program N_24;
const n=10;
var
a:array[1..n] of real;
i,k:integer;
r:real;
begin
k:=0;
write('Input r -> ');readln( r );
for i:=1 to n do
begin
write('-> ');
readln(a[i]);
end;
for i:=1 to n do
if a[i]=r then begin k:=i;break; end;
if k=0 then writeln('Net!')
else writeln('N: ',k);
readln;
end. }
{program N_25;
const n=10;
var
a:array[1..n] of real;
i,k:integer;
r:real;
begin
k:=0;
write('Input r -> ');readln( r );
for i:=1 to n do
begin
write('-> ');
readln(a[i]);
end;
for i:=n downto 1 do
if a[i]=r then begin k:=i;break;end;
if k=0 then writeln('Net!')
else writeln('N: ',k);
readln;
end.}
{program N_26;
const n=10;
var
a:array[1..n] of integer;
b:array[1..n] of real;
i,S,Sa:integer;
begin
S:=0;
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])/n-1;
write(b[i]:1 :1,' ');
end;
readln;
end. }
{program N_27;
const n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
write('-> ');
readln(a[i]);
end;
writeln;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 5=2) then begin k:=i;break; end;
write(k);
readln;
end.}
{program N_28;
const n=40;
var
a:array[1..n] of integer;
i,S:integer;
begin
S:=0;
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i],' ');
if (a[i]>0) and (a[i]<10) then S:=S+a[i];
end;
writeln;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 5=0) then write(i,' ');
writeln;
write('Sred arifmet -> ',(S/n):1 :1);
readln;
end.}
И еще чуть чуть........
{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. }
Спасибо, Ivs, сейчс буду во всём этом раздупляться :o :D Вопросик ;D Номера задач, решённых, такие же как номера в условии? Что-то я не узнаю где какая :-/
Всё, разобрался...
Но возникли вопросы у меня к тебе Ivs, ты писал, тебе и отвечать ;D :D ;)
Вот вопросики:
1)что за оператор break, что он делает, для чего и т.д...
2) оператор IN ... тоже самое...
3)и объясни пожалуйста задачи 17, 19, 22. Подробно, если можно, ты там так намутил... начинающим не понять... Вобщем построчно
Ещё раз спасибо за решение всех задач!
Ответы:
break - это оператор выхода из цикла до его завершения.
есть еще такие полезные операторы как:
continue- выполнение следующей итерации цикла еще до завершения выполнения этой
halt- остановка выполнеия всей программы, независимо где он расположен
exit - выход из подпрограммы или если он расположен в основной части то завершает работу всей проги.
in [...] - это принадлежность множеству чисел или символов расположеных в квадратных скобках.
его, на самом деле можно заменить
например
if i in [1..20] на
if (i>=1) and (i<=20);
так что можешь там исправить если надо.
Кстати единственная задача которую я не решил это N_17, так как не могу понять условия.....
И еще, Romario, 12 задачу лучше наверное переписАть,
а то я там строки использовал, вобщем, не очень удачно как-то:
Вот ещё одна лабораторная, уже последняя : пока ;D
!!!При решении задач применять процедуры и функции!!!
Дан массив целых чисел (п=25), заполненный случайным образом числами из промежутка (-35,75).
1.Удалить из него все элементы, первая цифра которых четная.
2.Вставить число К1 после всех элементов, больших заданного числа, а число К2 – перед всеми элементами, кратными 3 (К1, К2 вводить с клавиатуры).
3.Перенести первые К элементов в конец, то есть: а[k+1], а[k+2], …, а[n], а[1], а[2],
4. …, а[k].
N_1:
N_3
Ivs, ты не понял это всё должна быть одна программа! 1- 1я функция, 2- 2я функия, и т.д . Это всё одна программа!
Помогите пожалуйста решить мне задачку. За ранее вам всем благодарна.
Мне нужно найти 15 первых чисел, которые делятся на 3.
а новую темку создать нельзя было? Эх а какую тему вспомнили .....
Старые добрые времена, еще форум старый был....
Tatjanka а условие-то не полное, приведите примервходных\выходных данных
Tatjanka
Зачем же поднимать такие старые темы? Можно было создать новую...
volvo, неужели так?
я думал, что дына последовательность чисел, найти среди них делящиеся на 3.
А то слишком просто что-то... уже ведь сессия скоро ... кто такие задачи решает в это время года?
Oi spasibo vam ogromnoe sei4as poprobuju eto v programme napisat
Vse polu4ilos!!!!!!!!!
volvo spasibo.
Vse tak prosto a ja probovala 4erez for i mod
Eshe u menja ostalas odna zada4ka s massivom.
Esli ja vas ne o4en obremenjaju, to pomogite plz.
dan A(10) i B(10) 4islovoi massiv. Naiti novie elementi massiva C(10) , esli
(A1+B10,A2+B9....A10+B1)
Tatjanka