Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program tim_tuoi;
uses crt;
var i,j,ngaysinh,tuoi, uoctuoi,k:integer;
begin
clrscr;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
begin
uoctuoi:=sqr(i)+sqr(j)+sqr(k);
tuoi:=i*100+j*10+k;for ngaysinh:=1 to 31 do
if tuoi =uoctuoi+ngaysinh then write('tuoi cua cu la: ',tuoi);
end;
readln;
end.
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.
#include <bits/stdc++.h>
using namespace std;
double x,tb;
int n,i;
int main()
{
cin>>n;
tb=0;
for (i=1; i<=n; i++)
{
cin>>x;
tb+=x;
}
cout<<fixed<<setprecision(2)<<tb/n;
return 0;
}
#include <iostream>
#include <fstream>
#include <vector>
#include <algorithm>
int main() {
// Đọc dữ liệu từ tệp TUOI.INP
std::ifstream inputFile("TUOI.INP");
if (!inputFile.is_open()) {
std::cerr << "Không thể mở tệp TUOI.INP" << std::endl;
return 1;
}
std::vector<int> ages;
int age;
while (inputFile >> age) {
// Kiểm tra nếu tuổi nằm trong khoảng từ 1 đến 100
if (age >= 1 && age <= 100) {
ages.push_back(age);
} else {
std::cerr << "Tuổi không hợp lệ: " << age << std::endl;
}
}
// Đóng tệp TUOI.INP
inputFile.close();
// Sắp xếp tuổi từ nhỏ đến lớn
std::sort(ages.begin(), ages.end());
// Ghi kết quả vào tệp TUOI.OUT
std::ofstream outputFile("TUOI.OUT");
if (!outputFile.is_open()) {
std::cerr << "Không thể mở tệp TUOI.OUT" << std::endl;
return 1;
}
for (int i = 0; i < ages.size(); ++i) {
outputFile << ages[i] << " ";
}
// Đóng tệp TUOI.OUT
outputFile.close();
std::cout << "Quá trình sắp xếp và ghi kết quả hoàn tất." << std::endl;
return 0;
}
----------------------------------------------------------------
Để sử dụng chương trình, bạn cần tạo một tệp văn bản TUOI.INP chứa tuổi của dân cư (cách nhau bởi dấu cách hoặc dấu xuống dòng). Sau khi chạy chương trình, kết quả sẽ được ghi vào tệp TUOI.OUT.
program tinhtong;
uses crt;
var i, n, s: integer;
begin clrscr;
Write('N so tu nhien dau tien la: ');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
giúp mình câu này luôn nhé
In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
program tim_tuoi;
uses crt;
var i,j,ngaysinh,tuoi, uoctuoi,k:integer;
begin
clrscr;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
begin
uoctuoi:=sqr(i)+sqr(j)+sqr(k);
tuoi:=i*100+j*10+k;for ngaysinh:=1 to 31 do
if tuoi =uoctuoi+ngaysinh then write('tuoi cua cu la: ',tuoi);
end;
readln;
end.
hmm, bạn nên viết tham khảo nhỉ ?