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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
HB
22 tháng 11 2021
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.
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.
L
19 tháng 10 2016
Uses crt;
Var a,b : integer;
Begin
Writeln('Tong hai so a va b la= ', a + b );
Readln;
End.
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.
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.