lần sau những câu ko liên quan đến toán thì đừng gửi lên đây nhé
uses crt;
var a,b,c:real;
begin clrscr;
write('nhap a,b,c:');readln(a,b,c);
write('trung binh cong la:',(a+b+c)/3:8:2)
readln;end.
Viết chương trình Pascal sử dụng biến mảng để tính giá trị trung bình của n số nguyên nhập từ bàn phím.chiều dài của dãy cũng được nhập từ bàn phím.
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else
Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.
Viết chương trình Pascal thực hiện yêu cầu sau:
a)Sử dụng biến mạng , nhập vào dãy số nguyên từ bàn phím ,in ra màn hình dãy số đó
b)In ra màn hình tổng của dãy số đó
a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.
Viết chương trình in ra màn hình máy tính các số tự nhiên >0 với số đó là một số nguyên bất kỳ được nhập vào từ bàn phím.
viết chương trình tính tổng các chữ số cuả 1 số nguyên dương có 3 chữ số được nhập từ bàn phím
1. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
2. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
3. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
4. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:=7;
While (K=7) Do write(“ lap lan thu may”);
b. H:=3;n:=6;
While (n<= 20) Do H:=H+n;
c. For F:=3 to 23 do readln
Mọi người giúp em . Mai là kiểm tra rồi ạ
viết chương trình :Tìm UCLN của 2 số a và b (a và b là các số nhập từ bàn phím).
Viết chương trình tìm xem có bao nhiêu số dương trong n số nhập vào từ bàn phím?
