Bài 5. Từ bài toán đến chương trình

A_546789
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 11 2022 lúc 10:34

A=15; B=10; T=10

Bình luận (0)
Nguyễn Thị Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 10 2022 lúc 22:22

Câu 21: 

a: (b+d)*h*h/4

b: (2*b*b*b+2*d*d-b)/8

Bình luận (0)
-26-Trần Bạch Quang 7/7
26 tháng 10 2022 lúc 22:40

Câu 21: 

a: (b+d)*h*h/4

b: (2*b*b*b+2*d*d-b)/8

Bình luận (0)
Bạch Long Ngũ Sát
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 10 2022 lúc 22:23

a: (a+c)*h/2

b: (2*a*a+2*c*c-a)/4

Bình luận (0)
-26-Trần Bạch Quang 7/7
26 tháng 10 2022 lúc 22:41

a: (a+c)*h/2

b: (2*a*a+2*c*c-a)/4

Bình luận (0)
Bạch Long Ngũ Sát
Xem chi tiết
thanh hải lê
26 tháng 10 2022 lúc 18:16

A đúng

Bình luận (0)
animepham
26 tháng 10 2022 lúc 20:17

Câu 1. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal:

A.    8a              B. tamgiac                 C. program                            D. bai tap

Câu 2. Để chạy chương trình ta sử dụng tổ hợp nào:

A. Ctrl – F9               B. Alt – F9               C. F9       D.  Ctrl – Shitf – F9

Câu 3. Trong Pascal, khai báo nào sau đây là đúng?

A.    Var tb: real;         B. Type 4hs: integer;           C. const x: real;         D. Var R = 30;

Câu 4. Biểu thức toán học (a 2 + b)(1 + c) 3 được biểu diễn trong Pascal như thế nào ?

A.    (a*a + b)(1+c)(1 + c)(1 + c)                  B. (a.a + b)(1 + c)(1 + c)(1 + c)

C. (a*a + b)*(1 + c)*(1 + c)*(1 + c)          D. (a 2 + b)(1 + c) 3

Bình luận (0)
Minh Nguyenhuu
Xem chi tiết
Kiều Vũ Linh
18 tháng 10 2022 lúc 8:20

var x,y:integer;

begin

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

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

Writeln('Tong la ',x+y);

writeln('hieu la ',x-y);

writeln('tich la ',x*y);

writeln('thuong la ',x/y:10:2);

readln;

end.

Bình luận (0)
Mai Thị Mỹ Ngọc
Xem chi tiết
Kudo Shinichi AKIRA^_^
9 tháng 5 2022 lúc 18:25

Refer

 

uses crt;

var i,n,m:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

m:=0;

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

m:=m+a[i];

end;

write(' tong cua day so la:',m);

readln

end.

Bình luận (4)
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:14

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++)

if (a[i]%2==0) t+=a[i];

cout<<t;

return 0;

}

Bình luận (0)
Khoa Dương
Xem chi tiết
Hằng Võ Thanh
Xem chi tiết
Minh Lệ
4 tháng 5 2022 lúc 6:10

Program HOC24;

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

i: byte;

t: longint;

begin

for i:=1 to 15 do

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

t:=0;

write('Cac so chia het cho 5 la: ');

for i:=1 to 15 do if a[i] mod 5=0 then

begin

write(a[i].' ');

t:=t+a[i];

end;

writeln;

write('Tong cac so chia het cho 5 la: ',t);

readln

end.

Bình luận (0)