Đào Hằng
09/10/2004
| Số câu hỏi | 0 |
| Số câu trả lời | 2 |
| Điểm | 10 |
| Kết bạn | |
Bạn bè (1)
Hoạt động gần đây (3)
-
Đào Hằng đã trả lời trong câu hỏi: viêt thuật toán Cách đây 5 năm
program hoan_vi;
uses crt;
var x,y,a:real;
begin
clrscr;
write('nhap x=');readln(x);
write('nhap y=');readln(y);
a:=x;
x:=y;
y:=a;
write('x=',x,'','y=',y);
readln;
end.
-
Đào Hằng đã trả lời trong câu hỏi: Viết chương trình biến mảng tính tổng của n số nguyên nhập từ bàn phím? Cách đây 5 năm
Program tong;
Uses crt;
Var a:array[1..100] of integer;
n,s,i:integer;
Begin
Clrscr;
Write('nhap so phan tu cua mang:n=');readln(n);
For i:=1 to n do
Begin
Write('a[',i,']='); readln(a[i]);
End;
For i:= 1 to n do
Begin
S:=0;
S:= s+a[i];
Write('tong cua cac phan tu trong mang:s=',s);
End;
Readln;
End.
-
Đào Hằng đã kết bạn Trần Thảo Cách đây 5 năm
