uses crt;
const fi='bt.inp';
var a:array[1..100]of real;
i,dem:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
dem:=0;
while not eof(f1) do
begin
inc(dem);
read(f1,a[dem]);
if dem mod 2=0 then readln(f1);
end;
for i:=1 to dem do
write(a[i]:4:1,' ':4);
close(f1);
readln;
end.
cho tệp input txt chứa 3 số nguyên dương.viết chương trình đọc 3 số trong tệp input.txt tìm ra số có giá trị nhỏ nhất trong 3 số.kết quả ghi vào tệp output.txt
Viết chương trình táo ra một tệp chứa một mảng số nguyên không quá 100 phần tử . Tiến hành mở tệp ra để đọc dữ liệu và tính tổng các phần tử của mảng tất cả đều sử dụng thủ tục để viết chương trình
Tệp baitap.in chứa 1 số nguyên, tính bình phương số đó, ghi kq vào tệp ketqua.out
Giúp em với ạ
Mọi người ơi giúp mình vs ạ. M cảm ơn trước
Viết ctrinh: tạo tệp văn bản: KIEMTRA.TXT tệp gồm các dòng sau
Dòng 1: ghi 3 số nguyên
Dòng 2: ghi tổng 3 số nguyên dòng 1
Dòng 3: ghi số nhỏ nhất trong 3 số đầu dòng 1
Giúp m vs <3
Câu 1 - Các số đặc biệt Tên tệp chương trình : CAU1.PAS
Định nghĩa:
- Một số được gọi là đối xứng, nếu đọc từ bên trái sang bên phải hoặc từ bên phải sang trái đều được cùng một số. Ví dụ: số 75457 là số đối xứng.
- Số chính phương là số bằng bình phương đúng của một số nguyên. Ví dụ số 256 là số chính phương (vì 256=162)
Cho 2 số tự nhiên M và N (M, N trong khoảng từ 10 đến 100000 và M <N).
Yêu cầu:
a) Liệt kê và đếm xem có bao nhiêu số đối xứng nằm trong khoảng [M,N]
b) Liệt kê và đếm xem có bao nhiêu số chính phương nằm trong khoảng [M,N]
c) Liệt kê và đếm xem có bao nhiêu số đối xứng chính phương trong khoảng [M,N]
Dữ liệu vào là 2 số tự nhiên M và N nhập từ bàn phím. Kết quả in ra màn hình .
nhập 3 cạnh a,b,c của 1 tam giác viết ctc tính chu vi, diện tích tam giác thực hiện gọi thông qua kết quả ra màn hình
Viết chương trình ghi vào tệp “BAITHO.TXT" những câu thơ sau:
“Anh đi anh nhớ qua nhà
Nhớ canh rau muống nhớ cả rầm tương"
