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
KV
5 tháng 5 2023
var a,b,c:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
write('c = ');readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
write('ba so do co the la do dai ba canh cua tam giac')
else write('ba so do khong the la do dai ba canh cua tam giac');
readln
end.
HN
2
VQ
25 tháng 3 2022
tham khảo
Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
KS
25 tháng 3 2022
tham khảo
Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
H9
HT.Phong (9A5)
CTVHS
13 tháng 3 2023
Uses crt;
var i,n,y: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=i*i;
Writeln(s);
readln;
end.
CX
26 tháng 11 2021
THAM KHẢO
Thuật toán:
B1. Nhập ba số dương a,b,c
B2. Nếu a+b>c và b+c>a và c+a>b thì in ra màn hình a,b,c là ba cạnh của tam giác. Ngược lại in ra a,b,c không là ba cạnh của tam giác.
B3. Kết thúc.
Chương trình:
var a,b,c: real;
begin
writeln('Nhap ba canh lan luot: '); read(a,b,c);
if (a<0) or (b<0) or (c<0) then
repeat
writeln('Khong hop le. Nhap lai ba canh lan luot: '); read(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (b+c>a) and (c+a>b) then writeln('Ba so nay la do dai ba canh tam giac') else writeln('Ba so nay khong la ba canh cua tam giac');
end.
R
26 tháng 11 2021
Tham khảo
Đề bài: Ba số dương a, b c là độ dài ba cạnh của một tam giác khi và chỉ khi a+b>c, b+c>a, a+c>b
Em hãy thực hiện ác yêu cầu sau:
c) Mô tả thuật toán để giả quyết bài toán
CX
26 tháng 11 2021
Tham khảo
c. Thuật toán (2đ)
Bước 1: Nhập ba số dương a, b và c
Bước 2 : Nếu a + b > c và b + c > a và c + a > b thì thông báo ba số a, b và c tạo thành 3 cạnh của tam giác ngược lại thông báo ba số a, b và c không tạo thành ba cạnh của tam giác.
Bước 3: Kết thúc thuật toán
KK
28 tháng 4 2022
bạn tham khảo
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Ở hình 2, kho sao chép nội dung từ ô E4 sang ô E5 thì nội dung ở ô E5 là: =$C$4*$D$4 vì ta đã cố định địa chỉ trong công thức