Viết chương trình nhập vào 3 số nguyên. Tính tổng của số thứ nhất và thứ hai, tính tích của số thứ ba. (trên Pascal)
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Viết khai báo cho chương trình, nhập hai số thực từ bàn phím. Tính tổng của 2 số đó, nếu số thứ nhất lớn hơn số thứ 2, ngược lại thì tính tích của 2 số đó.
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
if a>b then writeln(a+b:4:2)
else writeln(a*b:4:2);
readln;
end.
uses crt;
var a,b:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
if(b>a)then writeln(a*b) else writeln(a+b);
readln;
end.
Viết chương trình nhập vào só nguyên N từ bàn phím (0 < N ≤ 1018). Thực hiện các công việc sau và ghi ra màn hình:
- Dòng thứ nhất ghi ra tổng của dãy số từ 1 đến N.
- Dòng thứ hai ghi ra tổng các số chẵn trong dãy từ 1 đến N.
- Dòng thứ ba ghi ra tổng các số lẻ trong dãy số từ 1 đến N
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
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)
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
1/ viết chương trình nhập vào hai số nguyên a,b tìm trung bình cộng của a,b
2/ Một cửa hàng bán sách có chương trình khuyến mãi như sau:
- Nếu mua hàng vào các ngày từ thứ 2 tới thứ 6 thì giảm 10% tổng số tiền
- Nếu mua hàng vào ngày thứ 7 thì giảm 30% tổng số tiền
- Nếu mua hàng vào ngày chủ nhật thì giảm 40% tổng số tiền
Hãy viết chương trình nhập vào ngày mua sắm là thứ mấy trong tuần( thứ hai là số 2, thứ ba là số 3,.... chủ nhật là số 8) và tổng số tiền.Cho biết số tiền sau cùng khách hàng phải trả là bao nhiêu?
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
viết chương trình nhập vào số đo hai cạnh đáy của hình thang 2 cạnh bên và chiều cao là số nguyên tính và in ra màn hình chu vi và diện tích của hình thang đó a sử dụng lệnh gán đáy nhỏ = 4 đáy lớn 9 cạnh bên thứ nhất = 6 cạnh bên thứ 2 = 8 chiều cao = 7
#include <bits/stdc++.h>
using namespace std;
double x,y,z;
int main()
{
cin>>x>>y>>z;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<(x+y)/2*z;
return 0;
}
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Viết chương trình tính tổng hai số a, b (với giả trị của a, b được nhập vào tiừ bản phím ) trên Pascal
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.