Lập trình đơn giản

Eriken

Ngày đầu tuần vui vẻ :

- Cũng không có gì thay đổi , câu hỏi sẽ hỏi về tin

C1: Viết chương trình in kết quả ra màn hình : S=(1+3+5+...+99)+(2+4+6+...+100)

C2: Viết chương trình in kết quả ra màn hình T=\(a+\dfrac{\sqrt{x-a}}{\sqrt{a-x}}\) với a,x là số nguyên dương được nhập từ bàn phím

C3: Viết chương trình in ước của 102 ra màn hình

Phần thưởng như sau :

C1: 1GP

C2: 1GP

C3: 3GP

Lưu ý : Phần thưởng sẽ được trao đầy đủ , các bạn trả lời xong có thể trả lời đủ lượng phần thưởng để được tặng

híp
25 tháng 2 2019 lúc 14:41

program cau3;

var i:integer;

begin

write('cac uoc cua 102 la:');

for i:=1 to 102 do if 102 mod i = 0 then write(' ',i);

readln

end.

Bình luận (3)
Bastkoo
25 tháng 2 2019 lúc 17:59

program c2;

var T,a,x : integer ;

Begin

write('nhap gia tri cua a:'); readln(a);

write('nhap gia tri cua x'); readln(x);

T:=a+sqrt(x-a)/sqrt(a-x) ;

write('Ket qua T=',T);

readln

end.

Bình luận (1)
híp
3 tháng 3 2019 lúc 12:02

.

Bình luận (0)
híp
3 tháng 3 2019 lúc 12:02

.

Bình luận (0)
Nguyen
25 tháng 2 2019 lúc 17:00

C3:

Program C3;

Var

i:interger;

Begin

Writeln('Cac uoc cua 102 la:');

For i:=1 to sqrt(102) do

if 102 mod i=0 then write('',i:10:5);

readln;

end.

C2: Program C2;

Var S:integer;

Begin

(1+100)*100/2;

readln(S);

writeln('Tong S bang',S);

readln;

end.

Bình luận (2)
Thục Trinh
25 tháng 2 2019 lúc 18:03

Câu 1:

Program cau_1;

Uses crt;

Var S: Integer;

Begin

Clrscr;

S:=(1+3+5+...+99)+(2+4+6+...+100);

Writeln ('Gia tri cua S la:', S);

Readln;

End.

Câu 2:

Program Cau_2;

Uses crt;

Var T, x, a: Integer;

Begin

Clrscr;

Writeln ('Hay nhap gia tri cua a:'); Readln (a);

Writeln ('Hay nhap gia tri cua x:'); Readln (x);

T:=a+(sqrt(x-a)/sqrt(a-x));

Writeln ('Gia tri cua T la:', T);

Readln;

End.

Câu 3:

Program Cau_3;

Uses Crt;

Var i: Integer;

Begin

Clrscr;

For i:=1 to 102 do

Begin

If 102 mod i = 0 then writeln ('Uoc cua 102 la:' i);

End;

Readln;

End.

Bình luận (2)
Nguyen
25 tháng 2 2019 lúc 19:19

C1: Program C1;

Var S:integer;

Begin

S:=(1+100)*100/2;

Writeln('Tong la',S:10:5);

readln;

end.

C2: Program C2;

Var

T:real; a,x: integer;

Begin

Writeln('Hay nhap a:');

readln(a);

Writeln('Hay nhap x:');

readln(x);

T:=a+(sqrt(x-a))/(sqrt(a-x));

Writeln('Bieu thuc T bang:',T:10:5);

readln;

end.

Bình luận (0)
Đoàn Gia Khánh
25 tháng 2 2019 lúc 21:51

trả lời hơi bị trễ mn trả lời hết rồi còn có 1 câu

Câu 1

program dfkjgh;

uses crt;

var i,s:integer;

begin

clrscr;

for i:1 to 100 do s=s+i;

write('gia tri cua s la',' ',s);

readln;

end.

Bình luận (0)
Đoàn Gia Khánh
25 tháng 2 2019 lúc 22:03

tin giừ ko ai để ý nữa nhỉ .hình như ko có CTV bên tin luôn ấy

tin cũng là 1 môn hay mà

Bình luận (0)

Các câu hỏi tương tự
Quỳnh
Xem chi tiết
Chóii Changg
Xem chi tiết
Eriken
Xem chi tiết
Hắc Phong
Xem chi tiết
Thị Ngọc Phan
Xem chi tiết
khonopro
Xem chi tiết
Kim Thái
Xem chi tiết
duyy
Xem chi tiết
BEN111z
Xem chi tiết