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
5 tháng 12 2016
de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
4 tháng 12 2016
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
8 tháng 12 2016
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
VT
3
4 tháng 6 2020
program so_tu_nhien_chan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.
HD
Hà Đức Thọ
Admin
28 tháng 9 2016
Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
1 tháng 10 2016
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha
NL
Nguyễn Lê Phước Thịnh
CTVHS
14 tháng 12 2019
Câu 1: B
Câu 2: D
Câu 3: D
Câu 4: Thông báo lỗi
Câu 5: C
Câu 6: B
Câu 7: C
Câu 8: D
Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn
Câu 10: B
Câu 11: B
Câu 12: D
Câu 13: C
Câu 14: A
Câu 15: C
Câu 16:
-Cấu trúc rẽ nhánh có 2 dạng.png)
Câu 17
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
BA
14 tháng 12 2019
C1: A
C2: D
C3: D
C4: báo lỗi
C5: C
C6: B
C7: C
C8: D
C9: Hoán đổi gt biến a và b
C10: B
C11: B
C12: D
C13: C
C14: A
C15: C
C16
- Cấu trúc rẽ nhánh có 2 loại
C17
ML
4 tháng 6 2020
Câu 2:
Program HOC24;
var a: array[1..20] of integer;
t,i: integer;
begin
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to 20 do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la :',t);
readln
end.
ML
4 tháng 6 2020
Câu 1:
Program HOC24;
var a: array[1..10] of integer;
min,max,i: integer;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
min:=32000; max:=0;
for i:=1 to 10 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la :',max);
write('So nho nhat la : ',min);
readln
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
8 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
trang tuan