K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

6 tháng 5 2021

1=1=one

6 tháng 5 2021

Chicijjhdseeeerr

6 tháng 5 2021

1= 1+0 nhé bạn

9 tháng 4 2020

1:

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 9 do

s:=s+1/i;

writeln('s=',s:4:2);

readln;

end.

2:

uses crt;

var i,n,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

for i:=1 to n do

if i mod 2<>0 then t:=t+i;

writeln(t);

readln;

end.