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.

24 tháng 10 2021

II:

uses crt;

var x,y,z:int64;

begin

clrscr;

readln(x,y,z);

writeln(x+y+z);

writeln(x*y*z);

readln;

end.

7 tháng 11 2021

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.

14 tháng 11 2021

uses crt;

var a:int64;

begin

clrscr;

readln(a);

writeln(a*4);

readln;

end.

14 tháng 11 2021

dừng 5 giây nx bạn ư

 

ai giúp em giải bt pascal này với ạBạn Tí hôm nay vừa được giải nhất cuộc thi Toán qua mạng, phần thưởng của bạn là một số tiền của ban tổ chức. Tuy nhiên, ban tổ chức muốn thử thách mức độ giỏi Toán bạn ấy một lần nữa.Ban tổ chức cho Tí một con số, và nhiệm vụ của bạn ấy là phải xóa đi một trong hai số ở hàng đơn vị hoặc hàng chục. Số sau khi xóa sẽ chính là tiền thưởng của Ban...
Đọc tiếp

ai giúp em giải bt pascal này với ạ

Bạn Tí hôm nay vừa được giải nhất cuộc thi Toán qua mạng, phần thưởng của bạn là một số tiền của ban tổ chức. Tuy nhiên, ban tổ chức muốn thử thách mức độ giỏi Toán bạn ấy một lần nữa.

Ban tổ chức cho Tí một con số, và nhiệm vụ của bạn ấy là phải xóa đi một trong hai số ở hàng đơn vị hoặc hàng chục. Số sau khi xóa sẽ chính là tiền thưởng của Ban tổ chức dành cho bạn Tí.

Bạn hãy lập trình giúp Tí tìm ra con số lớn nhất là số tiền thưởng của Ban tổ chức.

INPUT:

·        Một dòng duy nhất chứa số nguyên dương N (10 ≤ N ≤ 109) là số mà Ban tổ chức đưa cho Tí

OUTPUT:

·        Một số duy nhất là số tiền lớn nhất mà Tí có thể nhận được.

Ví dụ:

INPUT

OUTPUT

1230

123

1203

123

0
ai giúp mình làm đề cương câu này với mai mình thi rồi ạ Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *, /, div, moddiv, mod+, -, *, / và <, >, >=, <=, < >, = <, >, >=, <=, < >, =9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *,/and, or, <, >, >=, <=, < >, =and, or<, >, >=, <=, < >, =10.Kết quả của các phép chia hai số nguyên 14 và 5 là:14/5=2; 14 div 5=2; 14 mod 5=4;14/5=2.8; 14 div 5=4; 14 mod 5=214/5=2.8;...
Đọc tiếp

ai giúp mình làm đề cương câu này với mai mình thi rồi ạ

 

Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?

+, -, *, /, div, mod

div, mod

+, -, *, / và <, >, >=, <=, < >, =

 <, >, >=, <=, < >, =

9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?

+, -, *,/

and, or, <, >, >=, <=, < >, =

and, or

<, >, >=, <=, < >, =

10.Kết quả của các phép chia hai số nguyên 14 và 5 là:

14/5=2; 14 div 5=2; 14 mod 5=4;

14/5=2.8; 14 div 5=4; 14 mod 5=2

14/5=2.8; 14 div 5=2; 14 mod 5=4;

14/5=3; 14 div 5=2; 14 mod 5=4

11.Trong Pascal, điều kiện để a, b, c là 3 cạnh của một tam giác đều là:

a = b = c

(a = b) and (b = c)

(a = b) or (b = c)

a = b, b = c

12.Kiểu dữ liệu số nguyên là:

byte, integer

byte, word, integer, longint

char, string

real

13.Cho a=1, b=2, c=3, khẳng định nào sau đây là đúng?

a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3

a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3 và tam giác đó có 1 góc vuông vì thỏa mãn c2=a2 + b2 (theo định lí Pytago)

a, b, c không là 3 cạnh của một tam giác

14.Cú pháp khai báo biến là:

var <danh sách tên biến> : <giá trị>;

var <danh sách tên biến> : <kiểu dữ liệu>;

var <danh sách tên biến> := <kiểu dữ liệu>;

var <danh sách tên biến> = <giá trị>;

15.Cú pháp khai báo hằng là:

var <tên hằng> = <giá trị>;

const <tên hằng> : <giá trị>;

var <danh sách tên hằng> = <giá trị>;

const <tên hằng> = <giá trị>;

16.Cú pháp câu lệnh gán giá trị cho biến là:

<tên biến> = <giá trị>;

<tên biến> : <giá trị>;

<tên biến> := <giá trị>;

<tên biến> := <giá trị>

1
24 tháng 12 2021

Câu 8: A

Câu 9: B

Câu 11: B

2 tháng 4 2021

Bạn có thể nêu rõ là phần thân của chương trình nào được không(vd: số nguyên tố, số song tố, ...) 

19 tháng 6 2019

.

uses crt;

var a:array[1..1000]of integer;

i,n,t,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do 

begin

t:=0;

for j:=1 to a[i] div 2 do 

  if a[i] mod j=0 then t:=t+j;

if t=a[i] then write(a[i]:4);

end;

readln;

end.

7 tháng 4 2022

cảm ơn ạ !!