cách viết chương trình để in ra màn hình tổng các số lẻ trong 3 số a, b, c ( với a, b, c là các số tự nhiên nhập vào từ bàn phím )
Viết chương trình để in ra màn hình tổng các số lẻ trong 3 số a, b, c (với a, b, c là các số nguyên nhập vào từ bàn phím).
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,t;
int main()
{
cin>>a>>b>>c;
t=0;
if (a%2!=0) t=t+a;
if (b%2!=0) t=t+b;
if (c%2!=0) t=t+c;
cout<<t;
return 0;
}
Viết chương trình nhập vào từ bàn phím bà số tự nhiên a,b,c: a) thông báo ra màn hình số a là số chẵn hay số lẻ
b)thông báo ra màn hình số b là số chẵn hay số lẻ
c) thông báo ra màn hình số c là số chẵn hay số lẻ
d) thông báo ra số lớn nhất trong ba số đó
Ai giúp mik với ạ
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('nhap ba so:');readln(a,b,c);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,'la so le);
if b mod 2=0 then writeln(b,'la so chan')
else writeln(b,'la so le');
if c mod 2=0 then writeln(c,'la so chan')
else writeln(c,'la so le');
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('so lon nhat trong ba so la:',max);
readln
end.
giả sử viết chương trình nhập một số tự nhiên từ bàn phím và in ra màn hình kết quả số đã nhập là số chẵn hay lẻ , chẳng hạn "5 là số lẻ ","8 là số chẵn" a) hãy mô tả các bước của thuật toán để giải quyết bài toán trên b) viết chương trình bằng ngôn ngữ lập trình pascal dựa trên thuật toán đã mô tả c) khởi động phần mền free pascal , soạn thảo, lưu, dịch, chạy chương trình dẫ viết ở câu 2 bằng bộ dữ liệu cụ thể
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.
Câu 1: Viết chương trình nhập vào từ bàn phím số tự nhiên n và in ra màn hình số đã nhập chẵn hay lẻ( vd 3 là số lẻ, 4 là số chẵn)
viết chương trình nhập vào số tự nhiên N từ bàn phím và in ra màn hình tổng các ước của N
program TongUoc;
uses crt;
var
N, i, Tong: integer;
begin
clrscr;
Tong := 0;
write('Nhap so tu nhien N: ');
readln(N);
// Tinh tong cac uoc cua N
for i := 1 to N do
begin
if N mod i = 0 then
begin
Tong := Tong + i;
end;
end;
writeln('Tong cac uoc cua ', N, ' la: ', Tong);
readln;
end.
Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).
a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.
b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số lẻ.
uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
end;
write('Tong cac so le: ',s);
readln;
end.
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số lẻ