Bạn bè (0)
Hoạt động gần đây (9)
-
Behind You đã trả lời trong câu hỏi: giải bài tập passcal Cách đây 6 năm
a.
var f:text;
a:array[1..100] of integer;
n,i,d:integer;
begin
assign(f,'vanban.txt');
reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i]);
for i:=1 to n do
if a[i]>0 then inc(d);
assign(f,'kq.out');
rewrite(f);
write(f,d);
close(f);
end.
-
Behind You đã đặt câu hỏi: giải bài tập passcal Cách đây 6 năm
cho tệp VANBAN.Txt chứa các số nguyên, mỗi số cách nhau 1 dấu cách và không kết thúc bằng kí tự xuống dòng
a, hãy đếm xem trong tệp có bao nhiêu số nguyên dương và đưa kq ra màn hình
b, tệp SO.TxT chứa tất cả các số chia hết cho 3 có trong tệp VANBAN.Txt mỗi số cách nhau một dấu cách và kt bằng kí tự xuống dòng
m.n trả lời mình ngay được không ạ
-
Behind You đã đặt câu hỏi: Bài tập của pascal Cách đây 6 năm
- Viết câu lệnh điều kiện kiểm tra xem số a là số dương hay số âm.
- Viết câu lệnh điều kiện kiểm tra xem số x là số chẵn hay số lẻ.
- Viết chương trình giải phương trình ax+b=0 với a,b bất kì nhập từ bàn phím.
-
Behind You đã trả lời trong câu hỏi: Bài tập của pascal Cách đây 6 năm
1.
if a<0 then write('a la so am')
else write('a la so duong');
2.
if (x mod 2= 0) then write('x la so chan')
else write('x la so le');
3.
var a,b:integer;
x:real;
begin
clrscr;
writeln('Giai phuong trinh bac nhat mot an: ax + b = 0');
writeln('--------------------------------------------------');
write('nhap a= ');readln(a);
write('nhap b= ');readln(b);
if (a=0) then
if (b=0) then writeln('phuong trinh vo so nghiem')
else writeln('phuong trinh vo nghiem')
else writeln('nghiem la: ',-b/a:3:1);
readln;
end. -
Behind You đã đặt câu hỏi: Nhập vào một số tự nhiên n viết chương trình in ra các số chẵn chia hết cho 6 trong khoảng từ 1 đến n? Cách đây 6 năm
Bài 1:Nhập vào một số tự nhiên n, in ra các số chẵn chia hết cho 6 trong khoảng từ 1 đến n.
Help me!!!!!!!!!!!!!!!!!! I need the answer now!
-
Behind You đã đặt câu hỏi: viết thuật toán Cách đây 6 năm
nhập vào ột số nguyên n lớn hơn 1 viết thuật toán kiểm tra xem só n có phải là số nguyên tố hay không biết ràng số nguyên tố chỉ chia hết cho 1 và chính nó
-
Behind You đã đặt câu hỏi: Viết chương trình Pascal nhập vào 1 số nguyên dương n nếu n = 0 thì n! = 1 nếu n > 0 thì n! = 1*2*3*...*n Cách đây 6 năm
Bài 2: Viết chương trình pascal nhập vào 1 số nguyên dương n. Nếu n =0 thì n! = 1. Nếu n > 0 thì n! = 1*2*3*...*n.
Bài 3:
Tính S6 = 1! + 2! + ... + n!
Với n được nhập từ bàn phím.
Giúp mình với. Thank you very much!
-
Behind You đã trả lời trong câu hỏi: Viết chương trình Pascal nhập vào 1 số nguyên dương n nếu n = 0 thì n! = 1 nếu n > 0 thì n! = 1*2*3*...*n Cách đây 6 năm
bài 2:
var N,i:integer;
giaithua:real;
begin
clrscr;
writeln('tinh giai thua');
writeln('----------------------------');
write('nhap so N= ');readln(N);
giaithua:=1;
for i:=1 to N do giaithua:=giaithua*N;
writeln('giai thua N!= ',giaithua:3:1);
readln;
end.
-
Behind You đã trả lời trong câu hỏi: viết thuật toán Cách đây 6 năm
var i,n:integer;
ok:boolean;
begin
clrscr;
writeln('xet mot so co phai la so nguyen to khong?');
writeln('----------------------------------------------');
ok:=true;
write('nhap n:= ');readln(n);
for i:=2 to n-1 do if n mod i = 0 then ok:=false;
if ok then writeln('n la so nguyen to')
else writeln('n khong phai la so nguyen to');
readln;
end.