Bài 1: Viết chương trình nhập 1 số nguyên dương n có 3 chữ số.Hãy thông báo ra màn hình tổng các chữ số của nó. Bài 2: giống bài trên nhưng là 5 chữ số. Giúp mình với ạ, mình cần gấp :
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
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
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
Viết chương trình giải các bài toán sau:
1. Nhập cạnh a của một hình vuông. Tính chu vi và diện tích hình vuông đó
2. Một người đi xe đạp với tốc độ 10km/h và một người đi xe máy với tốc độ 30km/h cùng xuất phát từ một vị trí, tại cùng một thời điểm và đi cùng một hướng. Lập trình tính khoảng cách giữa 2 người sau t giờ (t là số nguyên dương, t<=15). Dữ liệu t nhập từ bàn phím. Kết quả đưa ra màn hình.
( SỬ DỤNG PHẦN MỀM PYTHON Ạ )
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
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.