uses crt; var a, b, c, tich: integer; begin clrscr; write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); write('Nhap c: '); readln(c); tich:=a*b*c; writeln('Tich cua 3 so a, b, c la: ', tich); readln end.
Sơ đồ tư duy là gì [Tin học - Lớp 6] 3 trả lời Sơ đồ tư duy là gì? [Tin học - Lớp 6] 1 trả lời Cho biết ý nghĩa của câu lệnh sau [Tin học - Lớp 8] 1 trả lời Các câu lệnh sau, câu lệnh nào hợp lệ [Tin học - Lớp 8] 1 trả lời An toàn không? Giải thích lí do [Tin học - Lớp 6] 1 trả lời Chọn phát biểu đúng [Tin học - Lớp 8] 2 trả lời Thông tin cá nhân và tập thể là gì [Tin học - Lớp 6] 1 trả lời Sơ đồ tư duy là gì [Tin học - Lớp 6] 3 trả lời Sơ đồ tư duy là gì? [Tin học - Lớp 6] 1 trả lời Cho biết ý nghĩa của câu lệnh sau [Tin học - Lớp 8] 1 trả lời Các câu lệnh sau, câu lệnh nào hợp lệ [Tin học - Lớp 8] 1 trả lời An toàn không? Giải thích lí do [Tin học - Lớp 6] 1 trả lời Chọn phát biểu đúng [Tin học - Lớp 8] 2 trả lời Thông tin cá nhân và tập thể là gì [Tin học - Lớp 6] 1 trả lời program ct_tinh; uses crt; var a,b,c:integer; x,y:real; begin clrscr; write['nhap so a= '];readln[a]; write['nhap so b= '];readln[b]; write['nhap so c= '];readln[c]; x:=a+b+c; y:=[a+b]*[a+b]/c; writeln['x= ',x]; writeln['y= ',y]; readln; end. Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat. Create an account Viết chương trình nhập 3 số a, b, c từ bàn phím. Tính tổng 3 số đó và in ra số lớn nhất trong được nhập vào. Các câu hỏi tương tự
b1: viết chương trình nhập vào 3 số nguyên a,b,c. In ra màn hình số lớn nhất b2:cho 3 số bất kì. kiểm tra xem 3 số đó có là 3 cạnh của tam giác Các câu hỏi tương tự uses crt;var a,b,c,min: integer;begin writeln['nhap a,b,c: ']; readln[a,b,c]; if a<b then min:=a else min:=b; if c<min then min:=c; writeln ['so nho nhat la: ', min]; readln end.
program ct_tinh; uses crt; var a,b,c:integer; x,y:real; begin clrscr; write('nhap so a= ');readln(a); write('nhap so b= ');readln(b); write('nhap so c= ');readln(c); x:=a+b+c; y:=(a+b)*(a+b)/c; writeln('x= ',x); writeln('y= ',y); readln; end.
viết chương trình nhập 3 số a b c vào từ bàn phím ghi vào tệp dòng thứ nhất ghi 3 số a b c dòng thứ 2 ghi số lớn nhất của 3 số Các câu hỏi tương tự
Viết chương trình nhập 3 số nguyên từ bàn phím. Ghi giá trị 3 số nguyên đó vào tệp có tên dulieuvao.txt Các câu hỏi tương tự
Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1); While not eoln(f1) do Begin Read(f1,x);Write(x, ‘ '); End; Close(f1); A. Xuất dữ liệu trong tệp Input.dat ra màn hình; B. Ghi dữ liệu vào tệp Input.dat; C. Gắn tên tệp Input.Dat cho biến tệp f1; D. Mở tệp Input.dat để đọc; Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2); While not EOF(f1) do Begin Read(f1,x); Write(f2,x,’ ’); End; Close(f1); Close(f2); Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên cùng một dòng. B.Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên nhiều dòng. Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Input.dat trên nhiều dòng. Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Intput.dat trên cùng một dòng. Câu 26. Cho tệp B13.TXT chỉ có một dòng „abcdefgh‟ và chương trình sau: Var f:text; S1:string[3]; S2:string; Begin Assign(f,’B13.TXT’); Reset(f); Read(f,S2,S1); Readln End. Sau khi chạy chương trình trên thì S1,S2 có kết quả là a. S1=’absdefgh’; S2=’ ’ b. S1=’ ’; S2=’abcdefgh’ c. S1=’abcde’;S2=’fgh’ d. Cả a,b,c sai |
