uses crt;
var a,b,c,t,t1:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
t:=0;
t1:=0;
if a mod 2=0 then t:=t+a
else t1:=t1+a;
if b mod 2=0 then t:=t+b
else t1:=t1+b;
if c mod 2=0 then t:=t+c
else t1:=t1+c;
writeln('Tong cac so chan la: ',t);
writeln('Tong cac so le la: ',t1);
readln;
end.
1. viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số lẻ chia hết cho 5 hay không
2 viết chương trình : a là 1 số nguyên bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem a có phải là 1 số chẵn chia hết cho 5 hay không
Em chưa học câu lệnh lặp và đây là bài kiểm tra vest ngày mai của em mong mọi người giúp đỡ em mà không dùng câu lệnh lặp được không ạ
viết chương trình nhập vào số nguyên dương N.Kiểm tra và in ra màn số N là số chẵn hay lẽ
Số hoàn hảo là số mà tổng các ước của nó bằng 2 lần chính nó.
Ví dụ: 6 là số hoàn hảo vì 6 có tổng ước là 1+2+3+6=12=2 lần 61+2+3+6=12=2 lần số là số hoàn hảo vì 6
1
Yêu cầu: Viết chương trình nhập vào số nguyên n. In ra chữ YES nếu n là số hoàn hảo, ngược lại ghi chữ NO
cho 1 số nguyên x bất kì được nhập vào từ bàn phím. Hãy kiểm tra xem x có phải là số nguyên tố hay không?
Mô tả thuật toán:
Tính tổng các số lẽ trong N số tự nhiên đâu tiên với N được nhập từ bàn phím
Mọi người giúp mk vs.Mình cần gấp
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Viết chương trình Pascal, để nhập vào 2 số nguyên từ bàn phím. Tính tổng của 2 số đó.
(mọi người giúp em làm trên pascal với)
viết chương trình 1 số bất kỳ nhập từ bàn phím là số chẵn hay lẽ?
Giúp mình với
nhập vòa số nguyên n viết chương trình in ra màn hình tổng các ước của n
