Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.
<span>Задание №1
</span>
var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
<span>end.
</span>
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
<span>end.
</span>
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
<span>end.
</span>
Задание №4
var a,b,c:integer;
<span>begin </span>
<span>writeln('Введите стороны a,b,c'); </span>
<span>read(a,b,c); </span>
<span>if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') </span>
<span>else writeln('Треугольник неравнобедренный'); </span>
<span>end.
</span>
Задание №5
var a,b,c:integer;
<span>begin </span>
<span>a:=0; </span>
<span>c:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(b); </span>
<span>if b<0 then a:=a+1; </span>
<span>c:=c+1; </span>
<span>until c=3; </span>
<span>writeln('Количество отрицательных = ',a); </span>
<span>end.
</span>
Задание №6
var a,c:integer;
<span>b:real; </span>
<span>begin </span>
<span>writeln('Введите количество часов'); </span>
<span>read(a); </span>
<span>c:=a div 3; </span>
<span>b:=power(2, c); </span>
<span>writeln(b); </span>
<span>end.
</span>
Задание №7
const
<span>n=10; </span>
<span>var a:array [1..10] of integer; </span>
<span>i,k,s:integer; </span>
<span>begin </span>
<span>writeln('Введите k'); </span>
<span>read(k); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod k =0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end.</span>
В семеричной системе счисления используются цифры 0..6
Количество искомых цветов проще всего вычислить простым перебором:
1) 100 - 1
2) 200, 201, 210 - 3
3) 300, 301, 302, 310, 311, 320 - 6
4) 400, 401, 402, 403, 410, 411, 412, 420, 421, 430 - 10
5) 500, 501, 502, 503, 504, 510, 511, 512, 513, 520, 521, 522, 530, 531, 540 - 15
6) 600, 601, 602, 603, 604, 605, 610, 611, 612, 613, 614, 620, 621, 622, 623, 630, 631, 632, 640, 641, 650 - 21
Итого: 1+3+6+10+15+21 = 56
#include <stdio.h>
void sort(int in[], int a, int b) {
int i,j,mode;
if (a >= b) return;
for (i=a, j=b, mode=1; i < j; mode >0 ? j-- : i++)
if (in[i] > in[j]) {
int c = in[i];
in[i] = in[j];
in[j] = c;
mode = -mode;
}
sort(in, a, i-1);
sort(in, i+1, b);
}
int main(void) {
int m = 0; int x = 0;
int a[10] = {-8,-10,5,6,-10,-3,9,-7,-7,-8};
printf("\nИзначальный массив: ");
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод обменом (пузырьком): ");
for (int i = 0; i < 9; i++) {
for (int j = 0; j < 9-i; j++) {
if (a[j] < a[j + 1]) {
m = a[j];
a[j] = a[j + 1];
a[j + 1] = m;
}
}
}
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод вставкой: ");
for (int i = 0; i < 10; i++) {
x = a[i];
m = i;
while (m > 0 && a[m - 1] > x) {
a[m] = a[m - 1];
m = m - 1;
}
a[m] = x; }
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод выбором: ");
for (int i = 0; i < 10; i++) {
m = i;
for (int j = i + 1; j < 10; j++) {
if (a[j] > a[m]) {
m = j;
}
}
x = a[i];
a[i] = a[m];
a[m] = x;
}
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод разделением (qsort): ");
sort(a, 0, 9);
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
return 0;
}