Hãy nhập năm sinh của em để màn hình hiện ra số tuổi. Giúp mình với mai kt rồi :((
Giúp mình với, mai mình thi rồi huhu. Hãy hoàn thành chương trình nhập mảng N số nguyên từ bàn phím và in ra màn hình số lớn nhất, số nhỏ nhất, số phần tử chẵn lẻ của mảng (N được nhập từ bàn phím)
program mang;
uses crt;
var n,i,chan, le,max,min: Integer;
a:array[1..100] of integer;
begin
write('nhap so phan tu ');read(n);
for i:=1 to n do
begin
write('nhap so thu ',i); readln(a[i]);
end;
max:=a[1]; min:=a[1]; chan:=0;le:=0;
for i:=1to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
if a[i] mod 2 = 0 then chan:=chan+1
else le:=le+1;
end;
writeln('max la: ',max);
writeln('min la: ',min);
writeln('so phan tu chan: ',chan);
writeln('so phan tu le: ',le);
readln
end.
Bài toán: Lan, Hà, Mai lần lượt có sô tuổi khác nhau, biết số tuổi của các bạn được nhập từ bàn phím. hãy viết chương trình in ra màn hình tổng số tuổi của ba bạn. giải hộ mình bài này với!!!
var lan,ha,mai:integer;
begin
write('Tuoi Lan la ');readln(lan);
write('Tuoi Ha la ');readln(ha);
write('Tuoi Mai la ');readln(mai);
write('Tong so tuoi cua ba ban la ',lan+ha+mai);
readln;
end.
Uses crt;
Var m, l, h: integer;
Begin
Write('So tuoi cua Lan la: '); readln(l);
Write('So tuoi cua Ha la: ');
Readln(h);
Write('So tuoi cua Mai la: ');
Readln(m);
Writeln('Tong so tuoi cua ca ba ban la: ', m+h+l);
Readln;
End.
P/s: Chúc bạn học tốt!
viết chương trình thực hiện các công việc sau:
a) Nhập chiều cao(đơn vị mét) của N học sinh(N được nhập từ bàn phím).
b) Thông báo ra màn hình chiều cao lớn nhất của N học sinh đó.
c) Thông báo ra màn hình số học sinh cao hơn 1.6m
Mng ơi giúp mình với ạ :((
a)
var a:array[1..100] of longint;
n,i,max,d:longint;
begin
read(n);
for i:=1 to n do
write('nhap chieu cao, don vi cm');read(a[i]);
b) max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('ban cao nhat cao',max);
c) for i:=1 to n do
if a[i]>160 then d:=d+1;
write('so ban cao hon 160 cm la: ',d);
end.
uses crt;
var a:array[1..50]of real;
max:real;
i,n,dem:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap chieu cao cua ban thu ',i,':'); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Chieu cao lon nhat la: ',max);
dem:=0;
for i:=1 to n do
if a[i]>1.6 then inc(dem);
writeln('So hoc sinh cao hon 1,6m la: ',dem);
readln;
end.
chương trình nhập vào một mảng số nguyên gồm n phần tử rồi xuất ra màn hình các số chẵn trong mảng đã nhập Giúp mình vs ạ, mai mình thi rồi
program XuatSoChan;
uses crt;
const
Max_N = 20;
type
MangSoNguyen = array [1..Max_N] of integer;
var
A: MangSoNguyen;
i, n: integer;
begin
clrscr;
write('Nhap so luong phan tu cua mang: ');
readln(n);
writeln('Nhap cac phan tu vao mang:');
for i := 1 to n do
begin
write('A[', i, ']: ');
readln(A[i]);
end;
writeln('Cac so chan trong mang la:');
for i := 1 to n do
begin
if A[i] mod 2 = 0 then
writeln(A[i]);
end;
readln;
end.
Nhập vảo mảng gồm N số nguyên:
a) In ra màn hình các số chẵn có trong mảng.
b) Tính tổng các số lẻ có trong mảng.
c) Tìm giá trị lớn nhất và giá trị nhỏ nhất có trong mảng
Giúp mình vs mai mình kt rồi !
Program HOC24;
var min,max,n,i: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac so chan trong mang la: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
writeln;
t:=0;
for i:=1 to n do if a[i] mod 2=1 then t:=t+a[i];
writeln('Tong cac so le la: ',t);
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i] <max then max:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
write('Gia tri nho nhat la:' ,min);
readln
end.
mọi người cũng như ae của mình ơi !!!!!! hãy giúp mik làm bài này . gấp quá mai mik nộp cho cô rồi
năm 2017 , 1/6 tuổi mẹ bằng 1/2 tuổi con . Biết mẹ sinh con năm mẹ 28 tuổi . Tính năm mẹ sinh ra con sinh ra
Năm 2017, 1/6 tuổi mẹ = 3/6 tuổi con nên tuổi mẹ gấp 3 lần tuổi con.
Mẹ sinh con năm 28 tuổi có nghĩa tuổi mẹ hơn tuổi con 28 tuổi.
Tuổi con năm 2017 là: 28:2 = 14 (tuổi)
Năm mẹ sinh ra con là: 2017 - 14 = 2003
Gọi tuổi mẹ là x, tuổi con là y.
Theo đề ta có: x.1/6 = y.1/2
=> x.1/6 = y.3/6
=> x = 3y.
Vậy tuổi mẹ gấp 3 lần tuổi con.
Hiệu số phần bằng nhau là:
3 - 1 = 2 (phần)
Tuổi con hiện nay là:
28 : 2 = 14 (tuổi)
Mẹ sinh ra con vào năm:
2017 - 14 = 2003.
Viết chương trình nhập vào 1 dãy số a1,a2,a3,...,an Tính trung bình cộng các số và in kết quả ra màn hình Mn giúp mình ạ mai mình thi rồi
Var a:array[1..200] of real;
i,n,dem:integer;
s,tbc:real;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
s:=0;
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
1. Viết chương trình nhập vào 2 số nguyên a, b (kiểu char). Tính và in kết quả ra màn hình các biểu thức sau:
a+b
a/b
a&b
a|b
a<<2
b>>1
2. Viết chương trình nhập vào họ tên và năm sinh của một người, in ra màn hình lời chào và số tuổi của người đó.
mn giúp mình với mình cảm ơn nhiều ạ .
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
string st;
int a;
cin>>st;
cin>>a;
cout<<"Xin chao "<<st<<endl;
cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";
return 0;
}
Viết chương trình nhập vào mảng số nguyên hiện ra màn hình.Tính tổng các phần tử và hiện tổng đó ra màn hình. Giúp em với ạ
Var a:array[1..200] of integer;
i,n:integer;
s:longint;
Begin
Write('Nhap so luong so ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Writeln('Cac so vua nhap la ');
For i:=1 to n do write(a[i]:6);
Writeln;
Write('Tong la ');
For i:=1 to n do s:=s+a[i];
Write(s);
Readln;
End.