program bai3;
type KM=array [1..100]of LongInt ;
var a,b:KM;
i,N,t:Integer;
begin
write('nhap N =');Readln(N);
t:=0;
for i:=1 to n do
begin
Write('nhap a [',i,']=');
readln (a[i]);
if (a[i] mod 2=0) then [i]:=sqr(b[i])
else b[i]:=a[i];
end;
readln;
end.
a) Với N= 6
A= 5 6 3 4 5 8
B=?
b)Với N = 6
A= 5 7 3 1 11 15
B= ?
Hello mọi người
Mình là người mới học pascal nên có chút không hiểu mong mọi người chỉ bảo.
Code:
Program Vi_du;
Uses Crt;
Var k:byte;
Begin
Clrscr;
WriteIn('Nhap so 0 de ket thuc: ');
Repeat
Write('Nhap ma cua ki tu: ');ReadIn(k);
WriteIn('Ki tu co ma ', k, 'la ' , Chr(k) );
Until k=0;
End
Khi mình chạy nó ra lỗi 3: Unknown identifier nhưng mình không biết làm cách nào để sửa. Mấy bạn giúp mình với. Thanks.
Tại sao sử dụng readln(a,b) tốt hơn câu lệnh gán? Vì sao ?
Viết chương trình nhập từ bàn phím 2 số nguyên dương (<225) là chiều dài 2 cạnh của hình chữ nhật. Tính chu vi và diện tích của hình chữ nhật và hiển thị kết quả ra màn hình.
Giúp mình bài này ạ. Mình cảm ơn <3
Giúp em với ạ
Viết chương trình tính diện tích tam giác theo công thức sau: S = p(p a)(p b)(p c) với p = 1 2 (a+b+c) Dữ liệu vào: ba số nguyên a, b, c là ba cạnh tam giác 1 , , 1000 a b c Dữ liệu ra: Diện tích tam giác, làm tròn đến hai chữ số thập phân
1 bạn cần mua n cánh hoa hồng. Tại cửa hàng bán hoa giá của 1 cành hoa là m(đồng). Tuy nhiên, cửa hàng có chính sách giảm giá nếu khách hàng mua a cành hoa hồng trở lên thì giá bán giảm 25%. Nhập: m,n,a
Xuất ra:
n=15 n=30
m=1000 m=1000
a=20 a=10
=> Khi đó: T:= 15000 => Khi đó: T:=22500
nhờ các bạn chuyên tin giúp mink với:
viết chương trình nhập 3 số nguyên a, b , c từ bàn phím
a) đưa ra tổng a+b+c ra màn hình
b đưa ra màn hình số nhỏ nhất trong 3 số đó
c đếm xem trong 3 số đó có bao nhiêu số âm
giúp mink với mai mik kiểm tra rồi
Viết chương trình nhập vào một kí tự chữ cái thường, in lên màn hình kí tự hoa tương ứng.
Viết chương trình nhập vào 3 số nguyên a,b,c. Tìm giá trị lớn nhất của 3 số đó (có sử dụng chương trình con tìm giá trị lớn nhất)
Viết chương trình nhập vào 1 số nguyên n rồi đưa ra màn hình các kết quả
- Giá trị tuyệt đối của n
- bình phương của n
- số dư của bình phương n chia 3