viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình
Giải bởi Vietjack
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Gói VIP thi online tại VietJack (chỉ 200k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
viết chương trình nhập vào 1 ký tự. in ra mã ASCII của ký tự đó và in ra ký tự kế tiếp của nó
viết chương trình pascal nhập 3 số a,b,c; kiểm tra xem nó có phải đọ dài 3 cạnh 1 tam giác hay không rồi in ra màn hình, nếu là 3 cạnh tam giác thì tính chu vi của tam giác đó
Yêu cầu: Cho 5 số kiểu 64 bit a, b, c, d, e. In ra YES nếu có ít nhất 4 số bằng nhau, in ra NO nếu không thỏa mãn.
Dữ liệu: Một dòng gồm 5 số nguyên a, b, c, d, e .
Kết quả: Ghi ra YES nếu có 4 số bằng nhau, ghi NO nếu ngược lại.
Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình.
Ví dụ :Xâu abcdAbcD sẽ cho ra xâu ABCDABCD.
Viết chương trình nhập vào 3 số a b c tìm số lớn nhất số bé nhất trong ba số đó c++
Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ thường rồi in kết quả ra màn hình.
Ví dụ :Xâu abCdAbcD sẽ cho ra xâu abcdabcd.
