<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>
var n, sum, i, j:integer;
begin
sum:=0;
write('Enter N: ');
readln(n);
writeln('Enter N numbers:');
for i:=1 to n do
begin
read(j);
sum:=sum+j;
end;
writeln('Average is ', sum/n)
end.
CLS
N = 0
DIM A(4,
7)
DATA
51,22,33,44,-25,76,-87
DATA
229,30,-81,882,43,84,85
DATA
37,88,99,10,34,33,23
DATA
34, 55, 66, -77, 86, 65, 32, 91
FOR i
= 1 TO 4
FOR j =
1 TO 7
READ
A(i, j)
PRINT
A(i, j);
IF A(i,
j) < 0 THEN
N = N +
1
END IF
NEXT j
PRINT
NEXT i
PRINT
<span>PRINT "N ="; N
</span>
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
double W, t, r, y;
cin >> t;
cin >> r;
cin >> y;
W = (4 * pow(t, 3) + log(r)) / (exp(y+r)+7.2*sin(r));
cout << W;
}