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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
19 tháng 9 2021
Bài 4:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln('Tong la: ',a+b:4:2);
writeln('Hieu la: ',a-b:4:2);
writeln('Tich la: ',a*b:4:2);
writeln('Thuong la: ',a/b:4:2);
readln;
end.
19 tháng 9 2021
Bài 3:
uses crt;
var a,b:longint;
begin
clrscr;
readln(a,b);
writeln('Tong la: ',a+b);
writeln('Hieu la: ',a-b);
writeln('Tich la: ',a*b);
writeln('Thuong la: ',a/b:4:2);
readln;
end.
NH
10
14 tháng 4 2021
Câu 1:
uses crt;
var s,i,m:integer;
begin
clrscr;
write('m='); readln(m);
s:=0;
i:=1;
while s<=m do
begin
s:=s+i;
i:=i+1;
end;
writeln(s);
readln;
end.
14 tháng 4 2021
Câu 2:
uses crt;
var s,i,m:integer;
begin
clrscr;
write('m='); readln(m);
s:=0;
i:=1;
while s<=m do
begin
s:=s+i;
i:=i+1;
end;
writeln(s-i);
readln;
end.
NH
15
K
14 tháng 4 2021
mình ghi phần chính thôi nhé!
writeln('nhap n');readln(n);
1.For i:=1 to 9 do writeln(n,'x',i,'=',n*i);
2.for i:=1 to n do if (n mod i =0) and ( i mod 2 = 0) then writeln(i);
3.for i:=1 to n do if (n mod i =0) and ( i mod 2 = 1) then writeln(i);
4. uocchung:=1;for i:=1 to n do if n mod i = 0 then uocchung:=uocchung+i;
5. For i:=2 to n-1 do if n mod i = 0 then begin
if n = i then writeln( n,' la so nguyen to') else writeln(n, 'khong phai la so nguyen to');
14 tháng 4 2021
Câu 1:
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
GH
0
B
15 tháng 4 2021
uses crt;
var e,f,i,a,b,c,d: byte;
begin
clrscr;
write('Tu so = '); readln(e);
write('Mau so = '); readln(f);
a:=e;
b:=f;
writeln('Phan so ban dau: ',e,'/',f);
while E <> F do
if E > F then E:=E-F
else F:=F-E;
If e <> 1 then
begin
a:=a div e;
b:=b div e;
write('Phan so toi gian: ',a,'/',b);
end
else write('Phan so da toi gian, ',a,'/',b);
readln
end.
5 tháng 1 2022
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
C++ tức là c (tiếng việt gọi là cờ thì biết rồi, tiếng anh gọi là xi hoặc xê. Ở đây ta gọi là xê đi) cộng với dống + (cộng) thì sẽ là C+ (Xê cộng). Xê công là điểm Xê có dấu cộng. Tức là khi bạn đi thi bạn đc điểm C+. Nhớ k nếu mk đúng nghen.