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.
program CheckPrime;
var
s: string;
n: integer;
function IsPrime(n: integer): boolean;
var
i: integer;
begin
if n < 2 then
IsPrime := false
else
begin
IsPrime := true;
for i := 2 to Trunc(Sqrt(n)) do
begin
if n mod i = 0 then
begin
IsPrime := false;
Break;
end;
end;
end;
end;
begin
Write('Nhap vao mot chuoi: ');
ReadLn(s);
n := StrToInt(s);
if IsPrime(n) then
WriteLn('Day la mot so nguyen to')
else
WriteLn('Day khong phai la mot so nguyen to');
end.
Var s,i:integer;
Begin
s:=0;
i:=0;
While S<1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n la ',i);
Readln;
End.
BT1:
Uses crt;
var i,n: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do
read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
BT2:
Uses crt;
var i,n,k: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do
read(a[i]); readln;
for i:=1 to n do begin
if(a[i] mod 2=0) then k:=k+a[i];
end;
writeln(k);
readln;
end.
cho em hỏi..đap an tin hoc đề tài nầy em ko hiểu lắm...
cho dãy số nguyên A gồm n phân tử ( có giá trị đc nhập từ bàn phím ) dùng để lưu chiều cao của các bạn trong lớp. Viết chương trình in ra màn hình chiều cao của các bạn trong lớpBài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n;
int main()
{
cout<<x<<n;
cout<<pow(x,n);
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,ln;
int main()
{
ln=LLONG_MIN;
cin>>n;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
Program Bt1;
Var a, b, c, d: Byte;
Begin
Clrscr;
Write('Nhap so a='); readln(a);
Write('Nhap so b='); readln(b);
Write('Nhap so c='); readln(c);
Write('Nhap so d='); readln(d);
S:=a+b+c+d+e;
Writeln(Tong 5 so tu nhien tren la:'); readln(S)
End.
Program không có dấu : đâu nhé
uses crt;
var a:array[1..100]of integer;
n,i,x,t,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(x);
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>x then
begin
write(a[i]:4);
t:=t+a[i];
dem:=dem+1;
end;
writeln;
writeln(t);
writeln(dem);
readln;
end.