MV
0
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
20 tháng 5 2020
à tiện thể thì hàm inc(n) có nghĩa là tăng biến n lên 1 đơn vị
còn nếu là inc(n,x) thì tăng biến n lên x đơn vị nha
20 tháng 5 2020
uses crt;
var n,s:longint;
begin
clrscr;
n:=1; s:=1;
while s<=10000 do
begin
inc(n);
s:=s*n;
end;
writeln(n);
readln;
end.
AH
3
HD
17 tháng 12 2020
cs phải bn viết nhầm x+5 ko ạ ( mik nghĩ nó là x=5 ) nếu là x=5 thì x = 7 vì 5 chia 3 dư 2 ( đk thỏa mãn ) nên x=5+2 =7
CN
2
K
27 tháng 4 2021
uses crt;
var s,n,i:integer;
a:array [1..100] of real;
begin
s:=0;
write('nhap so so hang cua day');readln(n);
for i:=1 to n do begin
writeln('so thu',i,'la: '); readln(a[i]); s:=s+a[i]; end;
write('tong day so thuc la:',s); readln;
end.
27 tháng 4 2021
uses crt;
var a:array[1..100]of real;
i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(s:4:2);
readln;
end.
ML
4 tháng 6 2020
Câu 2:
Program HOC24;
var a: array[1..20] of integer;
t,i: integer;
begin
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to 20 do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la :',t);
readln
end.
ML
4 tháng 6 2020
Câu 1:
Program HOC24;
var a: array[1..10] of integer;
min,max,i: integer;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
min:=32000; max:=0;
for i:=1 to 10 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la :',max);
write('So nho nhat la : ',min);
readln
end.
NN
1
2 tháng 4 2021
uses crt;
var i,j:integer;
s:real;
{----------chuong-trinh-con---------------}
function luythua(x,y:integer):real;
var lt:real;
i:integer;
begin
lt:=1;
for i:=1 to y do
lt:=lt*x;
luythua:=lt;
end;
{---------------chuong-trinh-chinh---------------------}
s:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if i=j then s:=s+luythua(i,j);
writeln(s:0:0);
readln;
end.
9 tháng 5 2021
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
9 tháng 5 2021
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
13 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<"Tong la:"<<t<<endl;
if (t%2==0) cout<<"Tong la so chan";
else cout<<"Tong la so le";
return 0;
}
HN
28 tháng 2 2017
Chào bạn!
Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.
Còn nếu là thực hành thì bạn tự thực hành nhé.
Chúc bạn học tốt.
