uses crt;
var x,y:integer;
begin
clrscr;
readln(x);
y:=sqr(x);
writeln(y);
readln;
end.
uses crt;
var x,y:integer;
begin
clrscr;
readln(x);
y:=sqr(x);
writeln(y);
readln;
end.
Việt chương trình nhập vào các số thực x,z,y. Tính giá trị biểu thức sau a) x²+y²+z² b) √x+y-z
viết chương trình nhập vào 1 dãy gồm n số nguyên ( n<= 100)
a) xuất dãy vừa nhập
b) điền phần tử có giá trị nhỏ nhất trong dãy và tìm vị trí của phần tử đó
viết chương trình đọc từ tệp 'Data1.txt' 2 số nguyên x và y. Tính trung bình cộng 2 số x,y và ghi kết quả ra tệp 'Data2.txt'
Bài tập tệp Bài 1: Viết chương trình mở tệp dayso.TXT để đọc các số nguyên ra biến n và tính tổng các số nguyên n chia hết cho 3 hoặc 5? Bài 2: Viết chương trình nhập 50 số nguyên bất kì từ bàn phím và ghi các số nguyên lẻ đã nhập vào tập sole.TXT
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
Chương trình sau thực hiện nhập vào 2 số a,b nguyên dương (a < b) In ra các số chia hết cho 2 và 3 trong phạm vi từ a đến b
Viết một chương trình nhập n nguyên dương và n số nguyên a1, a2,…,an. a/ Tính tổng các số chẵn của dãy (In kết quả trên một dòng) b/ In các số của dãy nằm ở vị trí chẵn (2,4, 6…) ra màn hình (trên 1 dòng ),
Bài 7: Viết chương trình đọc từ file INP một dãy số nguyên A gồm có N phần tử (N<=10000). Ghi vào file OUT: dòng 1 ghi dãy số vừa nhập, dòng 2 ghi tổng của dãy số, dòng 3 ghi đếm các số dương có trong dãy và dòng 4 ghi tính tổng của các số dương đó.
BAI7.INP | BAI7.OUT |
6 10 -5 6 -7 -9 4
| 10 -5 6 -7 -9 4 -1 3 20 |
. Viết chương trình cho phép nhập từ bàn phím 3 số tự nhiên bất kì. Xử lí dữ liệu và ghi vào tệp “Ketqua.txt” tổng, tích và trung bình cộng của 3 số (mỗi kết quả in trên 1 dòng) ,pyhton