Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Nếu em vẽ trên hai tờ giấy trong suốt, mỗi tờ giấy vẽ một bông hoa lên nhau thì em sẽ nhìn thấy một hình ảnh mới kết hợp giữa hai bông hoa.
program GiamGiaTheoSoLuong;
varsoluonghoa: integer;
dongia, thanhtien: real;
begin
write('Nhap so luong hoa: ');
readln(soluonghoa);
write('Nhap don gia: ');
readln(dongia);
thanhtien := soluonghoa * dongia;
if soluonghoa >= 10 then
thanhtien := thanhtien * 0.9
else if soluonghoa >= 5 then
thanhtien := thanhtien * 0.95;
writeln('So luong hoa: ', soluonghoa);
writeln('Don gia: ', dongia:0:2);
writeln('Thanh tien: ', thanhtien:0:2);
readln;
end.
lik đây:
https://top10vietnam.vn/top-10-dia-diem-to-chuc-lien-hoan-lop-ngon-va-re-nhat-tai-ha-noi/
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Tham khảo!
- Chọn bản mẫu:
Bước 1: Mở thẻ File.
Bước 2: Chọn New.
Bước 3: Nhập từ khóa cần tìm vào ô tìm kiếm.
Bước 4: Lựa chọn bản mẫu phù hợp.
Bước 5: Chọn Creat.
- Nhập nội dung, hình ảnh và chỉnh sửa, định dạng để có bài trình chiếu.
- Lưu bài trình chiếu dưới dạng tệp video:
Bước 1: Mở tệp bài trình chiếu, chọn thẻ File, chọn Save As.
Bước 2: Chọn thư mục lưu tệp.
Bước 3: Trong cửa sổ Save As, nháy chuột phải vào mũi tên bên phải ô Save as type, chọn *.mp4 (hoặc *.wmv) trong danh sách mở ra.
Bước 4 Chọn nút lệnh Save.
sai rồi kìa bạn
ngôn ngữ C++ mà sao bạn lại viết bằng pascal
Bài 1:
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
writeln('Chu so hang don vi cua ',a,' la: ',a mod 10);
readln;
end.
Bài 2:
uses crt;
var s:ansistring;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i] in ['A'..'Z'] then inc(dem);
writeln('So luong chu so trong chuoi ky tu ',s,' la: ',dem);
readln;
end.