Viết chương trình nếu a,b >0 thì tính và in ra màn hình tích của a,b ngược lại hiển thị yêu cầu nhập lại
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.
em hay viết cú pháp sơ đồ khối và viết chương trình để thực hiện các bài toán bên dưới:
a. Nếu a>b thì hiển thị ra màn hình kết quả của a
b. Nếu a=b thì hiển thị ra màn hình "hai số bằng nhau", ngược lại thì hiển thị ra màn hình "hai số không bằng nhau ".
c. Nếu a chia cho 2 dư 1 thì hiển thị ra màn hình "a là số lẻ", ngược lại hiển thị ra màn hình "a là số chẵn".
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
Viết chương trình nhập vào mảng A gồm N số thực (N<=50) là điểm thi toán của các bạn trong lớp. Hiển thị mảng vừa nhập ra màn hình (mỗi số hiển thị trên một dòng)?Ai giúp em với ạ !!?
Program HOC24;
var i.n: integer;
a: array[1..250] of integer;
begin
for i:=1 to n do
begin
write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln
end.
uses crt;
var i,n:integer; A: Array[1..50] of integer;begin clrscr; readln(n);readln(k); for i:=1 to n do begin write('A[',i,'] = '); readln(A[i]); end; for i:=1 to A[i] do if (A[i] > k) then write(A[i]); readlnend.
uses crt;
var a:array[1..50]of real;
i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
writeln(a[i]:4:2);
readln;
end.
Năm nay chúng ta sẽ đón tết NHÂM DẦN, để đếm ngược thời gian đến giao thừa e hãy viết chương trình nhập vào từ bàn phím một khoảng thời gian n (0<n<=5) nếu nhập sai yêu cầu nhập lại khi nào đúng thì in ra màn hình thông báo đếm ngược từng giây về 0:"XIN THONG BAO CHI CON ? GIAY NUA LA DEN GIAO THUA" cho đến khi hết khoảng thời gian đã nhập thì in ra dòng chữ:"HAPPY NEW YEAR 2022 - CHUC MUNG NAM MOI XUAN NHAM DAN"
Trong đó ? lần lượt là số giây còn lại
MỌI NGƯỜI VIẾT CHƯƠNG TRÌNH PASCAL NÀY GIÚP MÌNH VỚI MÌNH CẢM ƠN!
viết chương trình tính tam giác: Nhập ba số a,b,c bất kì.Kiểm tra xem nó có thể là ba cạnh của tam giác hay không, nếu không thì in ra màn hình ''không làm ba cạnh của một tam giác', ngược lại thì in diện tích, chu vi của tam giác ra màn hình
PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.
* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)
Chúc bạn học tốt!
uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c:');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
write('3 canh vua nhap la tam giac')
write('3 canh vua nhap ko phai la tam giac');
readln;
end.
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
Viết chương trình nhập 5 số ngẫu nhiên từ bàn phím, sau đó in ra màn hình số chẵn.Lưu ý in các số vừa nhập ra màn hình.
huhu giúp em với ạ, thứ ba em thi mất rồi mà thầy lại ko sửa bài này :<
Viết chương trình nhập vào một số chẵn lớn hơn 10 nhỏ hơn 70. Nếu nhập không đúng yêu cầu nhập lại? Sau đó tính tổng các số từ 1 đến số chẵn vừa nhập?
ai giúp e bài này với ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if ((n>10) and (n<70))
{
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
}
else cout<<"Nhap lai";
return 0;
}