Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Tr Doris
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 23:19

uses crt;

var x:integer;

begin

clrscr;

readln(x);

writeln(x*x+x+1);

readln;

end.

bich lien
Xem chi tiết
Hồn Của Đá
29 tháng 12 2016 lúc 11:20

-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.

myungyeon
12 tháng 4 2017 lúc 17:12

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 {...}

Duyên Nè
Xem chi tiết
Nguyễn Thị Mơ
Xem chi tiết
Minh Lệ
6 tháng 1 2021 lúc 21:14

Program HOC24;

var x,a,b: integer;

y: longint;

begiin

write('Nhap a;x;b : '); readln(a,x,b);

y:=a*x+b;

if y mod 2=0 then write('y la so le ') else write('y la so chan');

readln

end.

Nguyễn Xuân Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2022 lúc 14:46

2:

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;

return 0;

}

Nguyễn Bảo Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:18

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Phạm Thị Phương Anh
Xem chi tiết
lcmmmmmm
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 17:40

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a*a+a+b);

readln;

end.

Trần Ngọc Đạt
28 tháng 11 2022 lúc 20:16

program lcmmmmmm;

var

a,b,c,s:integer; // có thể thay integer bằng longint

begin

assign(input,'bai1.inp');reset(input);

assign(output,'bai1.out');rewrite(output);

readln(a,b,c);

s:=0;

s:=(a*a+(a+b));

write(s);

end.

Phạm Thị Phương Anh
Xem chi tiết