uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='V') or (st[i]='v') then st[i]:='Z';
writeln('Xau sau khi thay doi la: ',st);
readln;
end.
1. viết chương trình nhập vào 4 số nguyên a, b, c, d .Tính tích và trung bình cộng của 4 số này
2. viết chương trình nhập vào 3 cạnh của 1 hình tam giác. Tính chu vi và diện tích của tam giác đó
3. viết chương trình nhập vào dộ cao của 1 vật. Tính vận tốc rơi tự do của vật đó
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
câu 1
a, viết chương trình để nhập 1 số tự nhiên tù bàn phím và in ra màn hình số đó có phải là số pytago hay không . số n lá số pytago nếu n >=3 và n^2=(n-1)^2+(n-2)^2 ?
b,viết chương trình nhập 3 số tự nhiên a,b,c từ bàn phím và in ra màn hình thông báo chúng có là bộ số pytago hay không ? câu 2 viết CT tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số nhập vào bàn phímcho dãy a gồm N số nguyên . Viết chương trình tính và đưa ra màn hình tổng các số vừa chia hết cho 2 vừa chia hết cho 3
Giả sử x, y là các biến nguyên (kiểu integer), z là biến kiểu real (thực), a là biến kiểu Char (kiểu kí tự), các câu lệnh nào sau đây không phù hợp? vì sao? x := 3; y:= x; z := 3.3; x := z; Y := 6.8; a:= ‘z’; a:=x; x:=a; y:= ‘z’; y := y + 1; x := y*3 + 2; y – 1 := x; x*y := x+1;
Giả sử x, y là các biến nguyên (kiểu integer), z là biến kiểu real (thực), a là biến kiểu Char (kiểu kí tự), các câu lệnh nào sau đây không phù hợp? vì sao? x := 3; y:= x; z := 3.3; x := z; Y := 6.8; a:= ‘z’; a:=x; x:=a; y:= ‘z’; y := y + 1; x := y*3 + 2; y – 1 := x; x*y := x+1; Giúp mình với :((
Viết chương trình nhập vào hai cạnh vuông của một tam giác vuông. Sau đó tính diện tích và cạnh huyền của tam giác.kết quả trả về lấy 2 chữ số sau phần thập phân.
Viết chương trình nhập vào một số nguyên và kiểm tra số vừa nhập là số chẵn hay số lẻ
Giúp mk vs
