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
NN
5
15 tháng 3 2022
Số lần biết trước: Tính tổng 10 số từ 1 đến 10
Số lần chưa biết trước: Tìm ucln của a và b
AC
0
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
NT
1
HL
13 tháng 3 2019
Một biến mảng sau khi đã được khai báo, chúng ta có thể làm việc với các phần tử của nó như làm việc với 1 biến thông thường như gán giá trị, đọc giá trị và thực hiện các tính toán với giá trị đó
2 tháng 6 2020
uses crt;
var x:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('X[',i,']='); readln(x[i]);
end;
dem:=0;
for i:=1 to n do
if x[i] mod 2=0 then inc(dem);
writeln('So phan tu chan la: ',dem);
readln;
end.
