1)
var a:string;
s,i:integer;
begin
read(a);
s:=0;
for i:=1 to length(a) do
if a[i]='o' then s:=s+1;
Writeln(s);
end.
2)
var A:array[1..1000] of integer;
N,i:integer;
s:real;
begin
Read(N);
s:=0;
for i:=1 to N do
read(A[i]);
for i:=1 to N do
s:=s+a[i];
s:=s/N;
writeln(s:3:3);
end.
3)
var a:string;
s:integer;
begin
read(a);
s:=length(a);
if a[1]=a[s] then writeln('Da') else writeln('Net');
end.
4)
var a,b:integer;
f:text;
begin
assign(f,'in.txt');
reset(f);
read(f,a,b);
Writeln(a+b);
Writeln(a-b);
Writeln((a+b)/2);
close(f);
end.
Вроде все корректно, проверь
В 4 задаче, название файла in.txt можешь поменять на любое другое
По всем вопросам пиши в ЛС
1)
var a:string;
s,i:integer;
begin
read(a);
s:=0;
for i:=1 to length(a) do
if a[i]='o' then s:=s+1;
Writeln(s);
end.
2)
var A:array[1..1000] of integer;
N,i:integer;
s:real;
begin
Read(N);
s:=0;
for i:=1 to N do
read(A[i]);
for i:=1 to N do
s:=s+a[i];
s:=s/N;
writeln(s:3:3);
end.
3)
var a:string;
s:integer;
begin
read(a);
s:=length(a);
if a[1]=a[s] then writeln('Da') else writeln('Net');
end.
4)
var a,b:integer;
f:text;
begin
assign(f,'in.txt');
reset(f);
read(f,a,b);
Writeln(a+b);
Writeln(a-b);
Writeln((a+b)/2);
close(f);
end.
Вроде все корректно, проверь
В 4 задаче, название файла in.txt можешь поменять на любое другое
По всем вопросам пиши в ЛС
Поделитесь своими знаниями, ответьте на вопрос:
Найти кол-во j в хоронящемся учебнике по информатике если в нем 223 стр на каждого стр - 40 стр, а в каждой стороне по 40 символов
K(число символов)=223*40*40=356800 символов
i(вес символа)=32=2^5=5 бит
I(количество информации)-?
Решение: I=k*i
I=356800*5=1784000 бит=223000 байт=217,8 Кбайт