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.

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.

22 tháng 2 2022

Cảm ơn bạn nhiều nha 😊

14 tháng 3 2023

Var a,b,s,p:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

p:=(a + b)*2;

s:=a*b;

Write('P = ',p:10:2,' va s = ',s:10:2);

Readln;

End.

16 tháng 11 2021

a: int m;

double q;

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.

4 tháng 1 2022

1B

2D

23 tháng 10 2022

sai rồi

 

3 tháng 10 2018

Bài 1 :

- Giống nhau:

+Biến và hằng điều là đại lượng lưu trữ dữ liệu.

+Hai đại lượng này phải khai báo mới sử dụng được.

Khác nhau:

- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.

- Cách khai báo biến:

Var<tên biến>:<kiểu dữ liệu>;

VD: Var a,b:integer;

C:string;

-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.

_ Cách khai báo hằng:

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

VD: Const pi=3.14;

3 tháng 10 2018

Bài2. Giả sử ta đã khai báo một hằng Pi với giá trị 3.14. Có thể gán lại giá trị 3.1416 cho Pi trong phần thân chương trình được không, tại sao?
Trả lời
Không thể gán được, vì một tên hằng không thể nhận một lúc hai giá trị.

18 tháng 3 2023

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

25 tháng 12 2023

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.