Cấu trúc rẽ nhánh và lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
van hoan Dao

nhập vào từ bàn phím 3 số nguyên dương sau đó lập trình bằng pascal rồi đưa ra thông báo 3 số nguyên dương này là 3 cạnh của tam giác vuông

nhập vào từ bàn phím số n=50 và dãy Ai (A1,A2,...........,An) sau đó đưa ra màn hình tổng các số chia hết cho 2 hoặc 3 trong dãy

duong nguyenvan
30 tháng 11 2017 lúc 16:29

1.

Program bai1;

uses crt;

var a,b,c: integer;

begin

clrscr;

write('nhap canh a ='); readln(a);

write('nhap canh b ='); readln(b);

write('nhap canh c ='); readln(c);

if (a+b<c) or (b+c<a) and (c+a <b) then

writeln('khong phai la 3 canh cua tam giac ') else

writeln('la 3 canh cua tam giac ');

readln;

end.

duong nguyenvan
30 tháng 11 2017 lúc 16:40

2.

program bai2;

uses crt;

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

i,n: integer;

tong: real;

begin

clrscr;

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

for i := 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do

if (a[i] mod 2 = 0 ) or ( a[i] mod 3 = 0) then

tong:=tong+a[i];

write('tong cac so chia het cho 2 hoac 3 = ' ,tong :4:2);

readln;

end.


Các câu hỏi tương tự
Huyền Nguyễn
Xem chi tiết
Vũ Ngọc Lan
Xem chi tiết
Machunsu
Xem chi tiết
chương nguyễn
Xem chi tiết
Hạ Nhật
Xem chi tiết
phạm hương trà
Xem chi tiết
phươngplayergamer
Xem chi tiết
Nguyễn Ngô Hồng Anh
Xem chi tiết
Light Stars
Xem chi tiết