Program HOC24;
const fi='DULIEU.INP'
fo='KETQUA.OUT'
var f: text;
m,n,i: integer;
t: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,m,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=0;
for i:=m to n do if i mod 2=1 then t:=t+i;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
so sánh cấu trúc chương trình con với cấu trúc chương trình pascal
viết chương trình tính bội chung nhỏ nhất của hai số nguyên dương nhập vào từ bàn phím
nhập vào dãy N số nguyên (N nhập từ bàn phím )
a. đếm xem trong dãy có bao nhiêu số chẵn
b. đếm xem trong dãy có bao nhiêu số lẻ
c. tính tổng của các phần tử là số chẵn trong dãy số nguyên
d. tính tổng của các phần tử là số lẻ trong dãy số nguyên
Viết hàm để tạo 1 xâu , là xâu được viết theo thứ tự ngược lại của xâu S
Viết hàm tính tổng các số chẵn \(\le\) N
Bài 1 nhập vào mảng in ra số đối xứng
bai 1.inp bai.out
5 721 34 -10 211 5 212
Bài 2 in ra uwcln của số thứ nhất và các số còn lại
bai 2.inp bai2.out
6 8 11 1 12 2 1 1 6
Bài 3 In ra giá trị giai thừa của nó
bai 3.inp bai3.out
2 5 1 2
120
1
Bài 4 In ra số nhỏ nhất và số mũ là các số còn lại
Bai4.inp bai 4.out
2 3 4 2 4 8 16
bạn nào giải giúp mình với
viết chương trình nhập 3 số thực a,b,c từ bàn phím ( sử dụng chương trình con thủ tục ) thực hiện lần lượt các công việc sau :
a. kiểm tra xem 3 số trên có lập thành 3 cạnh của tam giác hay không ?
b. tính diện tích tam giác
c. tính các trung tuyến của tam giác
d. viết hoàn thiện chương trình chính
viết chương trình nhập 3 số thực a,b,c ừ bàn phím sử dụng chương trình con thủ tục tính đường trung tuyến tam giác
Viết chương trình nhập vào xâu S. In ra màn hình xâu số, xâu chữ và tổng các con số của xâu số.
