Sử dụng lệnh While...do nha, mn giúp mình vớ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
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.
11 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
bool kt;
int n,i;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if ((kt==true) and (n>1)) cout<<"YES";
else cout<<"NO";
return 0;
}
28 tháng 5 2020
uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=100 do
begin
n:=n+1;
t:=t+n;
end;
writeln(n);
readln;
end.
3 tháng 3 2022
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s)
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
30 tháng 3 2021
Bài 1:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
writeln(a:4:2);
readln;
end.
H9
HT.Phong (9A5)
CTVHS
11 tháng 4 2023
Cách 1 dùng lệnh for do:
Uses crt;
var i,n,k: integer;
begin clrcsr;
readln(n);
for i:=1 to n do begin
if(i mod 2=0) and (i>=10) then k:=k*i;
end;
writeln(k);
readln;
end.
Cách 2 dùng lệnh while do
Uses crt;
var m,n,o: integer;
begin clrcsr;
readln(n);
o:=1;
m:=1;
while (m<n) do begin
m:=m+1;
if(m mod 2=0) and (m>=10) then o:=o*m;
end;
writeln(o);
readln;
end.
2 tháng 1 2018
program fordo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('Tong la ',s);
readln
end.
2 tháng 1 2018
program whiledo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;i:=1;
While i<= n do
begin
s:=s+1/i;
i:=i+1;
end;
writeln('Tong la ',s);
readln
end.
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.
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.