Bài 1: Viết một hàm kiểm tra tính chẵn, lẻ của một số nguyên. Đọc dữ liệu từ file “input.txt” có cấu trúc gồm Dòng đầu chứa một số nguyên dương 𝑛 ; (1 < 𝑛 ≤ 1000). - 𝑛 dòng kế tiếp, dòng thứ 𝑖 ghi một số nguyên dương 𝑎𝑖 nhỏ hơn 106 . Xuất ra file “output.txt” 𝑛 dòng, dòng 𝑖 ghi “so chan” nếu 𝑎𝑖 chẵn và ghi “so le” nếu 𝑎𝑖 là số lẻ
Viết chương trình nhập vào số nguyên dương 𝑛. Nhập tiếp dãy gồm 𝑛 số nguyên. Hãy đếm số lượng số của dãy vừa nhập có đúng 3 chữ số.
Program HOC24;
var a: array[1..32000] of string;
d,i,n: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
if length(a[i]) = 3 then d:=d+1;
write('Co ',d,' so co 3 chu so trong day');
readln
end.
Câu 1: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra a,b cùng dáu hay trái dấu ( cùng âm hoặc cùng dương hoặc âm, dương hoặc dương, âm)
Câu 2: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra tính chẵn lẻ ( cùng lẻ hoặc cùng chẵn hoặc.......)
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a>0) and (b>0) then writeln('Cung duong');
if (a<0) and (b<0) then writeln('Cung am');
if (a>0) and (b<0) then writeln('Duong am');
if (a<0) and (b>0) then writeln('Am duong');
readln;
end.
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');
if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');
if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');
if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');
readln;
end.
Yêu cầu: Viết chương trình nhập vào số nguyên dương 𝑛 (0 < 𝑛 ≤ 1018). In ra: 𝑛 + √𝑛. Cho biết hàm lấy phần nguyên căn 𝑛 là int(sqrt(n)) hoặc (long long)(sqrt(n)), bản chất ở đây là ép kiểu thực sang kiểu nguyên và cắt đi phần lẻ.
Dữ liệu: Một dòng ghi số nguyên 𝑛 (0 < 𝑛 ≤ 1018).
Kết quả: Đưa ra kết quả 𝑛 + √𝑛.
input | output |
10 | 13 |
#include <bits/stdc++.h>
using namespace std;
int main() {
long long n;
cin >> n;
int can = (long long)(sqrt(n));
cout << n + can;
return 0;
}
Viết chương trình nhập vào số nguyên dương 𝑛(𝑛 ≤ 1014). Một đoạn gồm các chữ số liên tiếp của 𝑛 được gọi là một đường chạy nếu đoạn này có nhiều chữ số nhất, các chữ số có thứ tự tăng dần từ trái sang phải (chữ số bên trái ≤ chữ số bên phải) và chữ số nằm trái nhất phải khác 0, một đường chạy có thể có độ dài 1. Đếm xem trên số 𝑛 tồn tại bao nhiêu đường chạy.
Yêu cầu: Viết chương trình nhập vào n số nguyên. In ra số lượng các số nguyên dương trong dãy số.
Dữ liệu:
Dòng đầu tiên ghi số nguyên không âm n (0 < n <= 1000) .Dòng 2 ghi n số nguyên dương kiểu 64 bit cách nhau một dấu cách trống.Kết quả: Đưa ra số lượng các số nguyên dương trong dãy số.
var A:
array[1..n] of int64;
i, n, count: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
count := 0;
for i := 1 to n do
if A[i] > 0 then
count := count + 1;
writeln('So luong cac so nguyen duong trong mang la: ', count); end.
cho tệp DataIn.txt chứa liên tiếp 24 dãy số các số nguyên dương và âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt
xin giúp đỡ ạ
const fi='dataln.txt'
fo='dataout.txt'
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
Viết chương trình nhập vào số nguyên dương 𝑛. Xuất ra màn hình chữ số lớn nhất của 𝑛. pascal. dung longint, while , for :> Helppp me !!!!
uses crt;
var n,i,d,max,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln(max);
readln;
end.
Cho dãy số nguyên dương gồm 𝑁 phần tử 𝑎1, 𝑎2, … , 𝑎𝑁 và một số nguyên dương 𝑀. Yêu cầu: Đếm xem dãy 𝐴 có bao nhiêu dãy con liên tiếp có tổng không lớn hơn 𝑀.
Ngôn ngữ: C++
#include <bits/stdc++.h>
using namespace std;
long long a[1000000];
long long n,m,d;
int main()
{
cin>>n>>m;
for(int i=1;i<=n;i++){
long long tmp;
cin>>tmp;
a[i]=a[i-1]+tmp;
}
for(int i=1;i<n;i++){
for(int j=i+1;j<=n;j++){
if(a[j]-a[i-1]<=m){d++;}
}
}
cout<<d;
return 0;
}
