Nêu thuật toán bằng sơ đồ khối các bài toán sau
1. Cho 3 số dương a,b,c. Tìm số lớn nhất trong 3 số đó.
2. Tính tống \(S=1-2+3-4+5-6+...+\left(-1^{n+1}\right).n\left(n>0\right)\)
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.
K
9 tháng 12 2020
1,
program so_nguyen;
uses crt;
var a,b:real;
begin
writeln('Nhap so thu nhat');,readln(a);
writeln('Nhap so thu hai');readln(b);
If (a>0) and (b>0) then writeln('cung dau') else write('khong cung dau');
If (a<0) and (b<0) then writeln('cung dau') else write('khong cung dau');
2,, program so_nguyen;
uses crt;
var a,b:real;
begin
writeln('Nhap so thu nhat');,readln(a);
writeln('Nhap so thu hai');readln(b);
If a>b then write('so thu nhat lon hon');
If a<b then write('so thu hai lon hon');
readln
end.(Pascal nha) - Có thể dùng If...then... hoặc while...do...
2 tháng 12 2020
Program dien_tích_tamgiac;
Var a , h . Read;
Begin
Write ('nhap a ='); Readln (a);
Write ('nhap chieu h ='); Readln (h);
Writeln ('dien h tam giac la:'S=1/2*a*h:4:2);
Readln;
End.
BB
1
NH
1