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
6 tháng 12 2018
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!)
16 tháng 10 2018
Câu này mình đang cần trả lời nè ạ, bạn biết rồi thì vui lòng chỉ giúp mình với !!
20 tháng 11 2021
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
L
19 tháng 10 2016
Uses crt;
Var a,b : integer;
Begin
Writeln('Tong hai so a va b la= ', a + b );
Readln;
End.
15 tháng 1 2018
uses crt;
var a,b,c,s,x:integer;
begin
clrscr;
write('hs_lop');
writeln('nhap 3 so=');readln(a,b,c);
begin
s:=a+b+c;
writeln('tong la:',s);
x:=a*b*c;
writeln('tich la:',x);
end;
if a mod 2 =0 then writeln(a,'la so chan')
else write('a,'la so le');
readln;
end.
mình ko chắc pn kt thử xem
TG
23 tháng 4 2020
bạn ơi! Có thể cho mình hỏi bn dùng phần mềm lập trình gì được không ạ ?
NN
26 tháng 12 2018
xác định bài toán , mô tả thuật toán và viết chương trình
a)nhập vào 2 số nguyên a,b in ra a,b theo thứ tự không giảm
b) nhập 2 số nguyên a,b cho kết quả so sánh 2 số a,b
c) Nhập số nguyên n kiểm tra n là số chẵn hay lẻ
giúp mik với
27 tháng 12 2018
B vào link này tham khảo xem https://cunghocvui.com/danh-muc/tin-hoc-lop-8
HC
29 tháng 12 2016
-so sanh hai so nhap tu ban phim:
var a,b:integer;
begin
clrscr;
write('Nhap so thu nhat:');readln(a);
write('Nhap so thu hai:');readln(b);
if a>b then writeln(a,'lon hon',b)
else writeln(a,'nho hon,'b);
if a=b then writeln(a,'bang',b);
readln;
end.
12 tháng 4 2017
program ctdt;
uses crt;
type mang=array[1..10]of integer;
var a,b,min,x,y,i,j,tam:integer;
t,t1:mang;
(*------------------------*)
BEGIN
clrscr;
(*cau a*)
write('nhap 2 so:');readln(a,b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
if a<b then writeln(a,' nho thua ,b);
(*cau b*)
for i:=1 to 4 do {dua 4 so vao 1 mang}
begin
write(so thu ',i,' :');readln(t[i]);
end;
min:=t[1];
for i:=2 to 4 do
if t[i]<min then min:=t[i];
writeln('so nho nhat trong bon so:',min);
(*cau c*)
write('nhap hai so x,y:');readln(x,y);
if x>y then
begin
tam:=x;
x:=y;
y:=tam;
end;
(*cau d*)
for i:=1 to 3 do {dua 3 so vao mot mang}
begin
write(' so thu ',i,': ');readln(t1[i]);
end;
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if t1[j]>t1[i] then
begin
tam:=t1[j];
t1[j]:=t1[i];
t1[i]:=tam;
end;
for i:=1 to 3 do
write(t1[i]);
readln;
end.
bai nay con vai loi sai nho
ban nen chay tung cau mot va khoa cac cau con lai bang lenh {...}
TN
28 tháng 10 2018
3) var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if (a<b) then write(' Thu tu tang dan cua 2 so la: ',a,' va ',b)
else write(' Thu tu tang dan cua 2 so la: ',b,' va ',a);
readln;
end.
TN
28 tháng 10 2018
1)
var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
writeln(' Tong cua ',a,' va ',b,' la ',a+b);
writeln(' Hieu cua ',a,' va ',b,' la ',a-b);
writeln(' Tich cua ',a,' va ',b,' la ',a*b);
if b<>0 then writeln(' Thuong cua ',a,' va ',b,' la ',a/b);
readln;
end.