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.
1.
use crt;
Var a, b: real;
Begin
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if a<b then write('so a nho hon') else write('so b nho hon');
readln;
end.
2. a và b có khác nhau?
uses crt;
var a,b: integer;
begin
clrscr;
readln(a);
readln(b);
if a>b then writeln(a,' ',b)
else writeln(b,' ',a);
readln;
end.
(không đầy đủ lắm đâu)
3.
var a,b,c,max : integer;
Begin
writeln('Tim MAX cua 3 so a,b,c');
write('Nhap so a :');readln(a);
write('Nhap so b :');readln(b);
write('Nhap so c :');readln(c);
max:= a;
if max < b then max := b;
if max < c then max := c;
writeln( 'So Max trong 3 so la : ', max );
readln;
end.
4.
uses crt;var n:integer;
begin
wirite ( 'nhap gia tri cua x: ' );
readln (n);
if x mod 2 = 0 then write ( 'x la so chan' )
else wirite ( 'x la so le' );
end.
5.
uses crt;
var n:intger;
begin
clrscr;
writeln('nhap vao so nguyen duong:');
readln(n);
if n >= 0 then
writeln('so ',n,' la so duong')
else
writeln('so ',n,' la so am');
if (n mod 2 = 0) then
writeln('so ',n,' la so chan')
else
writeln('so ',n,' la so le.');
readln;
end.
(Công sức đấy! Chúc bạn học tốt!)
3) Program Sara_Trang;
uses crt;
var x:integer;
Begin
clrscr;
Write('Nhap so x:'); Readln(x);
If x>0 then Writeln('La so duong');
If x<0 then Writeln('Khong la so duong');
If x=0 then Writeln(' Khong la so duong cung khong la so am');
Readln
End.
Mai tui kiểm tra rồi
C1:
khai báo:
program hieu_a_va_b ("tự đặt tên cái này ko cần thiết)
uses crt;
var a, b : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("hieu cua hai so la: a - b=" , a - b);
end.
C2:
khai báo:
program tinh_ba_so
uses crt;
var a, b, c : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("nhap so c"); read(c);
writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);
end.
C3:
khai báo:
program tinh_ba_so
uses crt;
var x, y, z : integer
phần thân:
begin
writeln ("nhap so x"); read(x);
writeln ("nhap so y"); read(y);
writeln ("nhap so z"); read(z);
writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);
end.
nhớ chạy thử chương trình nha. xem có lỗi ko.
(nhớ tick cho mk nha)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
var x,y,s: real;
begin;
Readln(x,y);
S:=(3*x*x*x*y-1/2*x*x+1/5*x*y)*6*x*y*y*y;
Write ('Tong gia tri =' , s:2:1);
Readln;
End.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
program dgv;
uses crt;
var x,y,z,n,i: integer;
p,S,A: real;
begin
clrscr;
writeln('Nhap x: '); read(x);
writeln('Nhap y: '); read(y);
writeln('Nhap z: '); read(z);
writeln('Nhap n: '); read(n);
if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');
if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');
if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');
if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');
if n mod 3 <> 1 then writeln('Tong khong co quy luat') else
begin
S:=0;
for i:= 0 to (n-1)/3 do
S:= S+(3i+1);
writeln('S = ',S);
A:=0;
p:=1;
for i:=1 to n do
begin
p:= p*(x/(x+y));
A:=A+p;
end;
writeln('A = ',A);
readln
end.