viết chương trình pascal nhập 3 số a,b,c; kiểm tra xem nó có phải đọ dài 3 cạnh 1 tam giác hay không rồi in ra màn hình, nếu là 3 cạnh tam giác thì tính chu vi của tam giác đó
AB
Những câu hỏi liên quan
MA
3 tháng 5 2022 lúc 9:10
Viết chương trình nhập vào 2 số khác nhau a,b dạng Pascal
Tham khảo:
uses crt;. var a,b:integer;. begin. clrscr;. write('a='); readln(a);</p><p>write('b='); readln(b);</p><p>if a=b then writeln('vui long nhap hai so khac nhau ...
Đúng 3
Bình luận (1)
MA
3 tháng 5 2022 lúc 9:05
Viết chương trình nhập vào 2 số khác nhau a,b dạng Pascal
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau:
a) Nhập từ bàn phím 1 số nguyên n
b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n
(sử dụng câu lệnh lặp while...do)
Bài 2:
Viết chương trình pascal thực hiện câc yêu cầu sau:
a) Nhập từ bàn phím 1 số nguyên dương n
b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n
(sử dụng câu lệnh lặp while...do
giúp mình với mình đang cần gấp rất gấp luôn
Đọc tiếp
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (1)
NC
6 tháng 4 2023 lúc 21:34
Viết chương trình pascal nhập vào 2 số nguyên a, b và in ra màn hình tổng của chúng
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Tong la: ',a+b);
readln
end.
Đúng 1
Bình luận (0)
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)
Câu 1: chuyển biểu thức toán học sang pascal: a. b. 15.(4 + 30 + 12) c. (a+b)2.(d+e)3 d. ax2 + bx +2c Câu 2: viết chương trình tính tích 2 số nguyên được nhập từ bàn phím.Câu 3: viết chương trình tính tổng 2 sô nguyên được nhập từ bàn phím.Câu 4: viết chương trình nhập vào 2 số nguyên a, b sau đó in a, b trước và sau khi hoán đổi vị trí ra màn hình.Câu 5: viết chương trình tính tiền hóa đơn mua một món hàng, biết phí dịch vụ của hó...
Đọc tiếp
Câu 1: chuyển biểu thức toán học sang pascal:
a.
b. 15.(4 + 30 + 12)
c. (a+b)2.(d+e)3
d. ax2 + bx +2c
Câu 2: viết chương trình tính tích 2 số nguyên được nhập từ bàn phím.
Câu 3: viết chương trình tính tổng 2 sô nguyên được nhập từ bàn phím.
Câu 4: viết chương trình nhập vào 2 số nguyên a, b sau đó in a, b trước và sau khi hoán đổi vị trí ra màn hình.
Câu 5: viết chương trình tính tiền hóa đơn mua một món hàng, biết phí dịch vụ của hóa đơn là 10.000đ và công thức tính tiền là:
Thành tiền = đơn giá * số lượng + phí dịch
Câu 6: Cho biết kết quả của các phép so sánh sau:
a, 2x + 1 = 0
b, x2 – 5 > 4
c, 112 > 100
d, x2 + 3 = 7
Câu 1:
b, 15*(4+30+12)
c, (a+b)^2*(d+e)^3
d, a*x^2+b*x+2*c
Đúng 1
Bình luận (0)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
cout<<x*y;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình tính tổng hai số a, b (với giả trị của a, b được nhập vào tiừ bản phím ) trên Pascal
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Đúng 1
Bình luận (0)
NC
6 tháng 4 2023 lúc 21:36
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then...
Program HOC24;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
Đúng 1
Bình luận (0)
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Đúng 2
Bình luận (1)
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)