hãy tính tiền điện bằng chương trình TURBO PASCAL 7.0 rồi gửi qua cho mình nha?
guips mình đi
K
Khách
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.
Những câu hỏi liên quan
14 tháng 5 2022
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
KV
14 tháng 5 2022
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
TT
1
23 tháng 3 2022
1 là bn sửa hình nền
2 là mk gọi admin hoặc giáo viên khác khoá nick bn
TT
6
30 tháng 9 2016
Truc Thanh chương trình Turbo Pascal pn tải về máy tính của pn r thì không mở rộng đk đâu.
1 tháng 10 2016
Để phóng to ( mở rộng ) chương trình Turbo Pascal ta nhấn tổ hợp phím Alt + Enter
13 tháng 12 2016
uses crt;
var a,b:longint;
Begin
clrscr;
Writeln('Nhap a,b=');
Readln(a,b);
writeln('tich hai so la : a*b=',a*b);
writeln('thuong hai so la :a/b=',a/b);
Readln;
End.
18 tháng 2 2022
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
18 tháng 2 2022
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
đây là mình lấy ví dụ thôi nhé. bạn dùng bao nhiêu câu lệnh writeln cũng được, bạn cũng có thể khai báo biến khác a1,a2,... nhưng nhập readln là phải nhập đúng biến bạn khai báo nhé, phần tính tổng cũng thế, ở giữa 2 dấu phảy trên bạn có thể viết bất cứ thứ gì. vậy nhé. chúc học tốt
Phạm Minh Tiến kcj
TRẦN MINH HOÀNG mình có khai báo mà. nếu bạn ko dùng lệnh clrscr; thì không cần khai báo cũng được