//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
PrintLn(a);
end.
или более сложно
const
n = 20;
var
i, a: integer;
begin
a := 5;
for i := 2 to 20 do
a := a + 4;
writeln(a);
end.
#include <stdio.h>
#include <iostream>
#include <malloc.h>
const int N = 10;
int main()
{
setlocale(LC_ALL, "RUS");
int i, j=0, n=0;
int array[N];
int *a;
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("Введите %d элемент:", i);
scanf("%d", &array[i]);
}
system("cls");
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("%d ", array[i]);
}
printf("\n");
for (i=0; i<N; i++)
if (array[i] == 0)
n++;
printf("Новый массив:\n");
a = (int *)malloc(n*sizeof(int));
for (i=0; i<N; i++)
if (array[i] == 0) {
a[j] = i;
printf("%d ", a[j]);
j++;
}
free(a);
printf("\n");
system("pause");
return 0;
}
<em><u>Тестовое решение:</u></em>
Исходный массив:
5 0 3 6 0 0 2 1 0 5
Новый массив:
1 4 5 8
Для продолжения нажмите любую клавишу . . .
Var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := exp(-x) + cos(3 * x);
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
Пример вывода
Введите промежуток и шаг ([a,b] h) -1 4 0.5
x | f(x)
-1.000 | 1.728
-0.500 | 1.719
0.000 | 2.000
0.500 | 0.677
1.000 | -0.622
1.500 | 0.012
2.000 | 1.096
2.500 | 0.429
3.000 | -0.861
3.500 | -0.445
4.000 | 0.862
begin
var r := ReadReal();
var S: Action2<real, real> :=
(percent, radius)-> Println(percent * Round(Pi, 2) * radius ** 2);
S(1, r);
S(0.3, r);
end.
Около 20
Сначала находишь радиус - периметр разделить на 4 и еще на 2, а потом по формуле площади окружности S=Пи r^2
Там получается 19,63, если до сотых сокращать
