Bài 6: Giải bài toán trên máy tính

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bui thi anh
Xem chi tiết
Minh Lệ
12 tháng 8 2019 lúc 18:49

Lời giải :

program hotrotinhoc;

var x,y,x1: integer;

begin

readln(x);

x1:=x;

readln(y);

x:=y;

y:=x1;

write('Sau khi hoan doi: x=',x,', y= ',y);

readln

end.

Rua pe
Xem chi tiết
Rua pe
11 tháng 12 2017 lúc 0:59

Chỉ mình cách đánh công thức của bài này

Như Quỳnh
Xem chi tiết
Đẹp Trai Trọng
16 tháng 9 2019 lúc 21:02

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

for i:=1 to n do

s:=s+i;

write('Tong:',s);

readln

end.

Trân Tăng
Xem chi tiết
Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:11

Input: dãy số nguyên gồm n số được nhập từ bạn phím

Output: số lớn nhất, bé nhất trong dãy

Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:13

B1: nhập dãy số nguyên

B2: gán max:=a[1]; min:=a[1] 

B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]

B4: in kết quả ra màn hình

Tat Đạt
Xem chi tiết
༻G1༺ Thư2k
Xem chi tiết
Phong Thần
30 tháng 12 2020 lúc 15:51

Đổi 1GB=1024MB

Cứ 4MB = 1 cuốn

thì 1024/4 MB = 256 cuốn

Vậy USB có 1GB chứa được 256 cuốn sách như thế.

LA.Lousia
30 tháng 12 2020 lúc 19:06

Đổi 1GB=1024MB

Cứ 4MB = 1 cuốn

thì 1024/4 MB = 256 cuốn

Vậy USB có 1GB chứa được 256 cuốn sách như thế.

Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2021 lúc 22:00

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b=');c readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac vuong la: ',s:4:2);

end;

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

ky do
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 1 2021 lúc 17:15

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a>b then writeln('So lon nhat la: ',a)

else if a<b then writeln('So lon nhat la: ',b)

else writeln('Hai so bang nhau');

readln;

end.

Ngọc Hiền
Xem chi tiết
Nguyễn Thành Nam
Xem chi tiết
kieuanhk505
16 tháng 8 2022 lúc 19:25

a)

Input: số nguyên n, dãy số nguyên A, số nguyên k

Output: số lượng phần tử có giá trị lớn hơn k

b)

Thuật toán:

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

c)

+ dem=0; i=1;

+ i>N (Sai): A[1] không lớn hơn k, i=i+1=2

+ i>N (Sai): A[2] lớn hơn k, dem=dem+1=1; i=i+1=3

+ i>N (Sai): A[3] không lớn hơn k; i=i+1=4

+ i>N (Sai): A[4] không lớn hơn k, i=i+1=5

+ i>N (Sai): A[5] lớn hơn k, dem=dem+1=2; i=i+1=6

+ i>N (Đúng): In dem là 6.

End