nhập 2 số nguyên a b từ bàn phím viết chương trình tính tổng S của 2 số a b để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
A. Var a , b, tong : real;
B. Var a, b, tong : integer;
C. Var a, b, tong : char;
D. Var a, b, tong : string;
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tích 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
A. Var a, b, tich : integer;
B. Var a , b, tich : real;
C. Var a, b, tich : char;
D. Var a, b, tich : string;
Nhập 2 số thực a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
A. Var a, b, tong : char;
B. Var a, b, tong : integer;
C. Var a , b, tong : real;
D. Var a, b, tong : string;
Nhập 2 số nguyên a, b từ bàn phím. Viết chương trình tính tổng 2 số a, b. Để khai báo cho bài toán trên ta sử dụng câu lệnh khai báo nào?
(0.5 Points)
A. Var a , b, tong : real;
B. Var a, b, tong : integer;
C. Var a, b, tong : char;
D. Var a, b, tong : string;
Câu 2: Viết câu lệnh khai báo biến x có kiểu dữ liệu số thực và hằng pk có giá trị 20.
Câu 3: Viết chương trình Pascal tính tổng S của hai số nguyên a và b được nhập từ bàn phím
Kíu!! Mai thi mất r!!!
Câu 3:
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
program SumOfNumbers;
uses crt;
var
n, i, sum: integer;
numbers: array[1..100] of integer;
begin
clrscr;
write('Enter n: ');
readln(n);
// Tạo mảng các số tự nhiên từ 1 đến n
for i := 1 to n do
numbers[i] := i;
// Tính tổng các số tự nhiên từ 1 đến n
sum := 0;
for i := 1 to n do
sum := sum + numbers[i];
writeln('The sum of the first ', n, ' natural numbers is: ', sum);
readln;
end.
Viết chương trình nhập từ bàn phím hai số nguyên a và b khác nhau (a>b), sử dụng câu lệnh điều kiện để kiểm tra xem a chia het cho b hay không, thông báo ra màn hình.
program chia_het;
uses crt;
var a,b:integer;
begin
writeln('Nhap so thu nhat');readln(a);
writeln('Nhap so thu hai');readln(b);
If (a mod b = 0) then writeln('chia het') else writeln('chia khong het');
readln
end.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có chia hết cho 3 hoặc 5 hay không, thông báo ra màn hình.
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có chia hết cho 3 hoặc 5 hay không, thông báo ra màn hình.
uses crt;
var a:integer;
begin
clrscr;
readln(a);
if (a mod 3=0) or (a mod 5=0) then write('co')
else writeln('khong');
readln;
end.