Var i,n,s:integer;
a:array[1..200] of integer;
Begin
Write('N = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
s:=s+a[i];
End;
Writeln('Cac so vua nhap la ');
For i:=1 to n do
Write(a[i]:7);
Writeln;
Write('Tong la ',s);
Readln;
End.
Viết chương trình tính tích các số chẵn của số nguyên N nhập từ bàn phím sau đó in kết quả ra màn hình
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
Câu 1 viết chương trình nhập vào 1 dãy n số nguyên bất kỳ .In ra màn hình tổng các số chia hết cho 2
viết chương trình nhập vào một số nguyên n a. In ra màn hình các số chẵn b. In ra màn hình số lớn nhất trong dãy số đó
viết chương trình sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình tổng các số chia hết cho 3
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
