uses crt;
var n,s:longint;
begin
clrscr;
n:=1; s:=1;
while s<=10000 do
begin
inc(n);
s:=s*n;
end;
writeln(n);
readln;
end.
Đúng 0
Bình luận (0)
Bài 6. Câu lệnh điều kiện
Các câu hỏi tương tự
viet chuong trinh cho phep nhap diem kiem tra 1 ban nao do va in ra man hinh ket qua: neu diem nho hon 5 thi ban can co gang hon. neu ban lon hon hoac =5 va nho hon 6,5 thi ban dat diem trung binh. neu diem lon hon hoac = 6,5 va nho hon 8 thi ban dat diem kha. neu diem lon hon hoac = 8 thi ban dat diem gioi
28 tháng 12 2020 lúc 12:17
Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
if m > n then writeln(m lon hon n);
else if m < n writeln(m nho hon n);
else writeln('m bang n');
readln
End.
P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm ạ!
cho truoc x+5 se la bao nhieu trong cau lenh nay: if (x mod 3=2) then x:=x+5
1. Câu lệnh pascal nào dưới đây dùng để tính tổng S= 1+2+3+...+50
A.For i:=1 to 50 do;S:=S+i;
C. For i:=1 to 50 do S:=S+i;
B.For i:=1 to 50 do S:=S+i;
D. For i:=1 to 50 do S:=S+1;
Bạn nào viết được giùm mình cái chương trình pascal này :CẢM ƠN NHIỀU
Nếu như mua100 nghìn thì giảm giá 30%
Nếu như mua100 nghìn thì giảm giá 15%
Có gợi ý:
Program:________________
uses __________
var T:real;
write(nhap so tien mua);readln(T);
if(T100000)then writeln(so tien phai tra la,(70*T)/100)
else_______________
readln
end.
Cần gấp !!!!!!!!!!!!!!!!
Đọc tiếp
Bạn nào viết được giùm mình cái chương trình pascal này :''CẢM ƠN NHIỀU''
Nếu như mua>100 nghìn thì giảm giá 30%
Nếu như mua<100 nghìn thì giảm giá 15%
Có gợi ý:
Program:________________
uses __________
var T:real;
write(''nhap so tien mua'');readln(T);
if(T>100000)then writeln('so tien phai tra la'',(70*T)/100)
else_______________
readln
end.
Cần gấp !!!!!!!!!!!!!!!!
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
viet chuong trình in ra 100 dong thong bao chao cac ban
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do mình đang cần gấp ạ
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
mình đang cần gấp ạ
Các bạn có thể tìm lỗi trong program này giúp tớ được không?
program CTT5;
uses crt;
var a,b : integer;
begin
writeln(Nhap so hang dau tien : );readln(a);
writeln(Nhap so hang thu hai : );readln(b);
if b0 then
writeln(Ket qua phep cong la : ,a+b);
writeln(Ket qua phap tru la : ,a-b);
writeln(Ket qua phep nhan la : ,a*b);
writeln(Khong the chia cho 0);
else
writeln(Ket qua phep cong la : ,a+b);
writeln(Ket qua phap tru la : ,a-b);
writeln(Ket qua phep nhan la : ,a*b);
writeln(Ket qua phep chia l...
Đọc tiếp
Các bạn có thể tìm lỗi trong program này giúp tớ được không?
program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
else
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
readln;
end.
Nếu các cậu tìm được tớ sai lỗi nào thì comment cho tớ để tớ biết!