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.
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
a)
Input: số nguyên x
Output: x là lẻ hay chẵn
b) Thuật toán:
B1: Nhập số nguyên x
B2: Nếu x mod 2 bằng 0 thì in ra là số chẵn và kết thúc
B3: Nếu x mod 2 bằng 1 thì in ra là số lẻ và kết thúc
c)
program hotrotinhoc;
var x: integer;
begin
readln(x);
if x mod 2=0 then write('La so chan');
if x mod 2=1 then write('La so le');
readln
end.
a,
input: số x
output: số chẵn hay lẻ
b,
B1: nhập x
B2: nếu x chia 2 có số dư là 0 thì là số chẵn và ngược lại
B3: kết thúc
c,
program ho_tro;
uses crt;
var x: real;
begin
clrscr;
writeln(' nhap so x:'); readln(x);
if ( x mod 2)=0 then writeln(' la so chan:')
else writeln(' la so le:');
readln;
end.
Bài 1:
Program Kiem_tra_chan_le;
Uses Crt;
begin
clrscr;
real(a);
If a mod 2 = 0 then write ('Do la so chan');
If a mod 2 = 1 then write ('Do la so le');
readln
end.
Bài 2:
Program Kiem_tra_am_duong;
Uses Crt;
begin
clrscr;
real(b);
If a > 0 then write ('Do la so duong');
If a < 0 then write ('Do la so am');
readln
end.
Program Sara_Trang;
Uses crt;
Var x:integer;
Begin
Write('Nhap vao mot so nguyen : '); Readln(x);
If x MOD 2=0 Then
Writeln('So vua nhap vao la so chan')
Else Writeln('So vua nhap vao la so le');
Readln
End.
1.
var a:integer;
Begin
writeln('nhap a'); readln(a);
if a mod 2=0 then write ('so chan') else write ('so le');
readln
end.
var a,b,c:real;
begin
write('a=)';readln(a);
write('b=');readln(b);
write('c=');readln(c);
if ((a+b)>c) or ((a+c)>b) or ((b+c)>a) then writeln('la 3 canh cua tam giac')
else writeln('khong phai la 3 canh cua tam giac');
if (a=b) or (a=c) or (b=c) then writeln(' la tam giac can ')
else writeln(' khong phai la tam giac can ');
readln;
end.
Chương trình đầy đủ:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Lời giải :
program hotrotinhoc l
var a : array[1..32000] of integer ;
N,i : integer ;
function NT(n:longint) : boolean ;
var i: longint ;
kt : boolean ;
begnin
kt:= true;
for i:= 2 to round(sqrt(n)) do
if n mod i=0 then kt:= false ;
NT:=kt ;
end;
begin
write('Nhap do dai cua mang'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
begin
if (a[i]>2) and NT(a[i]) then write('trong mang co so nguyen to') else write('trong mang khong co so nguyen to');
if (a[i]>2) and NT(a[i]) then write('Cac so nguyen to trong mang la:',A[i]:5);
end;
readln
end.
Bài 1.Nhập vào một số n từ bàn phím (n là số nguyên)
a)Viết thuật toán để kiểm tra n là số chẵn hay số lẻ
b)Viết chương trình Pascal
bài làm:
a, b1 nhập số n
b2 , n mod 2 = 0 thì chuyển xuống b4
b3 n mod 2= 1 thì chuyển xuống b5
b4 n là số chẵn
b5 n là số lẻ
b,
program Chan_le;
uses Crt;
var n: integer;
begin
clrscr;
write(´Nhap n=`);
readln(n);
if n mod 2 = 0 then writeln(´n la so chan`) else
writeln(´n la so le`);
readln;
end.
nếu ước chung thì phải là "y có cùng ước chung" ? chứ sao "y có là ước chung của x" ?