Program c;
uses crt;
var x,y: real;
begin
x:=0.1;
while x<=2 do
begin
y:=cos(x)+6*x;
writeln('x=' , x:4:1, 'y=',y:10:6);
x:=x+0.2;
end;
end.
Составные компьютера или системный блок
Можно так. цифрой обозначаем порядок в котором она стоит, а количеством обозначаем саму цифру тоет:
Десятичное число : запись в нашей десятичной сс.
3:111
14:21111
102:311
302051:12222244666 (Система непозиционная, так что порядок седования цифр не имеет значение)
Если надо записать число в котором цифр больше десяти, то перем буквы латинского алфавита по порядку
213541123451324:1111223334555556666777889abbccccdddddeeefgg
В соответствии с данным алгоритмом:
a4=
Тоесть
Подставь x и получится результат.
Var
c,n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
write('Write c: '); readln(c);
k:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>c
then inc(k);
end;
writeln(k);
readln;
readln
end.