Những câu hỏi liên quan
nguyen huu loc
Xem chi tiết
duclinh
Xem chi tiết
Nguyễn Quỳnh
Xem chi tiết
Trần Mạnh Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 13:38

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 3=0 then t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
hong nhung
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:40

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
minh nguyen cong
Xem chi tiết
Minh Lệ
21 tháng 4 2019 lúc 8:45

Lời giải :

program hotrotinhoc ;

var a: array[1..32000] of integer ;

i,n,max : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:= 1 to n do if max<a[i] then max:=a[i];

write('So lon nhat la:',max');

readln

end.

Bình luận (0)
Nguyễn Xạ Điêu
Xem chi tiết
Kid Kudo Đạo Chích
5 tháng 12 2016 lúc 20:56

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.

 

Bình luận (0)
Nguyễn Xạ Điêu
Xem chi tiết
Trần Thanh Dương
4 tháng 12 2016 lúc 21:42

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)

Bình luận (0)
Kid Kudo Đạo Chích
8 tháng 12 2016 lúc 20:35

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.

Bình luận (0)
Kid Kudo Đạo Chích
8 tháng 12 2016 lúc 20:36

de 2

a. Hướng dẫn:

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

Bình luận (1)
Nguyễn Thái Sơn
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 11 2021 lúc 0:00

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"a truoc khi doi la:"<<fixed<<setprecision(2)<<a<<endl;

cout<<"b truoc khi doi la:"<<fixed<<setprecision(2)<<b<<endl;

swap(a,b);

cout<<"a sau khi doi la:"<<fixed<<setprecision(2)<<a<<endl;

cout<<"b sau khi doi la:"<<fixed<<setprecision(2)<<b;

return 0;

}

Bình luận (0)