K
Khách

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.

7 tháng 3 2023

Bạn bổ sung thêm readln; trước END. để in kết quả ra màn hình nhé

17 tháng 5 2021

Mình có bị nhưng có cách giải quyết đấy !

Bạn uninstall bản free pascal đấy đi rồi tải bản khác hoặc bạn có thể update cũng được

17 tháng 5 2021

mình làm rồi mà không được bạn

19 tháng 1 2022

bị chai pin hoặc máy cũ 

19 tháng 1 2022

...ờm...chắc zậy =)))

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>b) then writeln(b,' ',a)

else writeln(a,' ',b);

readln;

end.

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}

15 tháng 3 2022

???

15 tháng 3 2022

xóa câu hỏi luôn =)) 

17 tháng 1 2022

Câu lệnh trên web....

17 tháng 1 2022

Ê ĐANG THI Ó

 

BÀI KIỂM TRA HỌC KÌ II - NĂM HỌC 2020-2021 *Bắt buộc TRẮC NGHIỆM Hãy chọn một phương án đúng nhất! Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình: * 5 điểm Chỉ viết số 3.5 mà thôi Viết số 1 rồi viết số 3.5 Giá trị biến đếm. Không thực hiện được vì giá trị cuối không phải là số nguyên. Cấu trúc rẽ nhánh dạng đầy đủ có dạng: * 5 điểm If then else ; If then...
Đọc tiếp

BÀI KIỂM TRA HỌC KÌ II - NĂM HỌC 2020-2021 *Bắt buộc TRẮC NGHIỆM Hãy chọn một phương án đúng nhất! Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình: * 5 điểm Chỉ viết số 3.5 mà thôi Viết số 1 rồi viết số 3.5 Giá trị biến đếm. Không thực hiện được vì giá trị cuối không phải là số nguyên. Cấu trúc rẽ nhánh dạng đầy đủ có dạng: * 5 điểm If then else ; If then else ; If then else ; If then ; else ; Mục khác: Nêu lợi ích của việc khai báo và sử dụng biến mảng: * 5 điểm Có thể thay thế nhiều câu lệnh nhập In dữ liệu ra màn hình bằng một câu lệnh lặp. Tất cả đều sai. Câu a và b đúng. Trong các từ cho dưới đây, đâu là từ khoá: * 5 điểm writeln readln write program Mục khác: Trong Pascal, câu lệnh lặp với số lần chưa biết trước có dạng: * 5 điểm While do ; While do; While do While do ; Mục khác: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng: * 5 điểm Kiểu dữ liệu có thể là integer hoặc real. Cả ba ý trên. Chỉ số đầu nhỏ hơn chỉ số cuối. Chỉ số đầu và chỉ số cuối là 2 số nguyên. Để khai báo A là một biến mảng có 10 phần tử kiểu nguyên, cách khai báo nào sau đây là đúng nhất: * 5 điểm Var A: array[1....10] of real; Var A: array[1..10] of integer; Var A: array[1..10] of real; Var A = array[1..10] of integer; Tên nào hợp lệ trong các tên sau: * 5 điểm 2a var CHUvi chu vi Hãy cho biết đâu là phần khai báo biến mảng A gồm 20 phần tử thuộc kiểu dữ liệu số nguyên: * 5 điểm var A: array[1..20] of real; var A: array[1..20] of integer; var A: array[11..30] of integer; var A: array[11..30] of real; Trong Pascal, cách khai báo mảng đúng là: * 5 điểm Tên mảng : array[: ] of ; Tên mảng : array[.. ] : ; Tên mảng : array[, ] of ; Tên mảng : array[.. ] of ; Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?: * 5 điểm Readln(A[k]); Readln(A10); Readln(A[10]); Readln(A[i]); Trong TP, biểu thức (10*((42 mod 5) + 19))/6 cho kết quả bằng: * 5 điểm 35 25 20 30 Để chạy chương trình TP ta sử dụng tổ hợp phím: * 5 điểm F + 9 Ctrl + F9 Alt + F9 Ctrl + S Mục khác: Lệnh lặp nào sau đây là đúng: * 5 điểm For i := 100 to 1 do writeln('A'); For i := 1.5 to 10.5 do writeln('A'); For i = 1 to 10 do writeln('A'); For i := 1 to 100 do writeln('A'); Cách khai báo nào là đúng trong các khai báo sau: * 5 điểm Var A: array[5 . . 10,5] of real; Var A: array[4. . 8] of integer; Var A: array[10,5 . . 13] of integer; Var A: array[3,4 . . 4,8] of real; Hãy cho biết đâu là lệnh lặp For .. do để in chữ O: * 5 điểm For i:=1.5 to 10.5 do writeln(‘O’); For i:=100 to 1 do writeln(‘O’); For i:=1 to 10 do; writeln(‘O’; For i:=1 to 10 do writeln(‘O’); Cho biết kết quả của T sau khi thực hiện đoạn chương trình sau: T:=0; For i:=1 to 5 do T:=T+i; * 5 điểm T = 5 T = 1 T = 15 T = 0 Mục khác: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) * 5 điểm 1 lần 2 lần 12 lần Không lần nào Câu lệnh dùng để khai báo biến x có kiểu dữ liệu là kiểu số nguyên là: * 5 điểm Const x: integer; Const x: real; Var x: integer; Var x: real; Chọn khai báo hợp lệ: * 5 điểm Var a,b: array[1 .. n] of real; Var a,b: array[1 : n] of Integer; Var a,b: array[1 .. 100] of real; Var a,b: array[1 … 100] of real;

2

Trắc nghiệm: Không thực hiện được vì giá trị cuối không phải là số nguyên

Cấu trúc rẻ nhánh dạng đầy đủ có dạng

If then else;