//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
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.
If a > b then writeln('a > b')
else
if a < b then writeln('a < b')
else
writeln('a = b');
Вспоминаем формулу Шеннона
Общее количество карандашей равно 3+7 = 10.
p₁= 3/10 = 0.3; p₂ = 7/10 = 0.7
Program summa;
<span>var a, b, c, s: real; </span>
<span>begin </span>
<span>writeln('Введите числа a, b, c'); </span>
<span>readln(a,b,c); </span>
<span>s:=abs(a)+abs(b)+abs(c); </span>
<span>writeln('s=,'s); </span>
<span>readln; </span>
<span>end.</span>
{ У тебя было <span>two+theere+fore+five, т.е. ты складываешь все тройки четверки и тд и делишь на их количество, т.е. всегда будет "1", нужно посчитать сумму и поделить на количество.
Подправил твой код:}</span>
program p1;
const n=20;
var i,a1,two,theere,fore,five,sum:integer;
sr:double;
a:array[1..20] of integer;
begin
two:=0;
theere:=0;
fore:=0;
five:=0;
sr:=0;
sum:=0;
for i:=1 to n do
begin
read(a1);
sum:= sum + a1;
a[i]:=a1;
if a[i]=2 then
two:=two+1;
if a[i]=3 then
theere:=theere+1;
if a[i]=4 then
fore:=fore+1;
if a[i]= 5 then
five:=five+1;
end;
writeln('Количество двоек: ',two);
writeln('Количество троек: ',theere);
writeln('Количество четвёрок: ',fore);
writeln('Количество пятёрок: ',five);
sr:=(sum)/n;
writeln(sr);
end.
