viết phương trình nhập vào số a, tính và đưa ra màn hình kết luận a là sô âm hay số dương
Viết chương trình nhập vào từ bàn phím số nguyên N. Đưa ra màn hình thông báo N là số nguyên âm hay số nguyên dương chẵn
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n<0) cout<<"la so am";
else cout<<"la so duong";
return 0;
}
Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:
1. Tính tổng các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?
2. Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
Viết chương trình nhập vào một số nguyên dương có hai chữ số. Hãy dùng các phép toán DIV và MOD để tính tổng hai chữ số của số đó và đưa kết quả ra màn hình? (VD: Nhập số: 25 → đưa ra màn hình: 7)
Mình dùng C++ nên div = /; mod = % nha bn!
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}
Chúc bn học tốt!
uses crt;
var a:array[1..100]of integer;
n,i,k,dem,dem1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem);
if a[i] mod k=0 then inc(dem1);
end;
writeln('So phan tu chan la: ',dem);
writeln('So phan tu chia het cho ',k,' la: ',dem1);
readln;
end.
Nhập vào chương trình số nguyên bất kỳ kiểm tra và in ra màn hình kết quả số đó ( là số nguyên dương hay là số nguyên âm) là \(\ge\)0 hay >0.
Viết chương trình.
lên mạng đi bạn
làm Pascal khó lắm
Đề 1. Viết phương trình nhập hai số nguyên a và b hoán vị hai số đó khi a>b đưa ra màn hình Đề 2.Viết phương trình nhập số nguyên dương n in ra tổng các số nguyên dương là bội của 3 và 5
Bài 2:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if (i mod 3=0) and (i mod 5=0) then t:=t+i;
writeln(t);
readln;
end.
Viết chương trình nhập số nguyên a . Đưa ra màn hình thông báo “ a là số dương “ hay “ a là số lẻ “ hay “ a bằng 0 “
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
uses crt;
var a:array[1..100]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;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 7=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 7 la: ',t);
readln;
end.
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm
Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình
Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ
Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????