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âu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n 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);
writeln('So nho nhat la: ',min);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
THAM KHẢO:
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a lon hon 0');
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Uses crt;
Var n,i,a : integer;
Begin
a:=0;
Write('nhap n'); readln(n);
For i:=1 to n do
If (i mod 3= 0) then inc(a);
Writeln('so so chia het cho 3 la',a);
Readln
End.
program oken;
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('nhap so n: '); readln(n);
for i:=1 to n do
if (i mod 3=0) then
begin
write(i,' ');
dem:=dem+1;
end;
writeln;
if dem=0 then
writeln('tu 1 den ',n,' khong co so chia het cho 3.')
else
writeln('co ',dem,' so chia het cho 3.');
readln;
end.
Uses crt;
Var n,i,a : integer;
Begin
a:=0;
Write('nhap n'); readln(n);
For i:=1 to n do
If (i mod 3= 0) then inc(a);
Writeln('so so chia het cho 3 la',a);
Readln
End.
program oken;
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('nhap so n: '); readln(n);
for i:=1 to n do
if (i mod 3=0) then
begin
write(i,' ');
dem:=dem+1;
end;
writeln;
if dem=0 then
writeln('tu 1 den ',n,' khong co so chia het cho 3.')
else
writeln('co ',dem,' so chia het cho 3.');
readln;
end.
C2: Program Cau_2;
Var
A,x:integer;
Begin
clrscr;
writeln('Hay nhap so x:');
readln(x);
A:=0;
A:=x*(2+x)-x;
writeln('Bieu thuc A bang:',A:10:5);
Readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4:2);
readln;
end.
Câu 1:
Số lần dấu '*' được in ra màn hình là:
(9-3)+1=6+1=7(lần)
Vậy: 7 là số lần dấu '*' được in ra màn hình
Câu 2:
uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.
Copy nó phải khác hihi!!!
≠Khác:
Câu 1: Số lần dấu '*' được in ra màn hình là:
(9-3)+1=6+1=7(lần)
Vậy: 7 là số lần dấu '*' được in ra màn hình
Câu 2:
uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.