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 3 2022

program  bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin 

           Clrscr ; 

          write('Nhap so N=');

          readln(N);

          writeln;
          write ('Bang nhan',N) ;

          writeln;

           for i:=1 to 10 do

          writeln(N,'x',i:2,'=',N*i);

          readln ;

          End.

24 tháng 3 2022

đau tay

26 tháng 2 2021

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

write('Nhap so n;'); readln(n);

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

28 tháng 9 2020

Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.

program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then

Begin

writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');

end
else

begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);

end;
readln;
end.

10 tháng 11 2021

Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ 

28 tháng 12 2020

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

     Clrscr;

     Writeln('Hay nhap so m va n'); 

     if m > n then writeln(m lon hon n);

     if m < n then writeln(m nho hon n);

     else writeln('m bang n');

     readln

End.

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60      Nhập chương trình :       uses crt;       var N,I:integer;       begin                clrscr;                 write (Nhap so N='); readln(N);                writeln;                writeln('Bang nhan',N);                writeln;                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);               readlnend                                                            Câu hỏi ôn tập: a. Sau khi...
Đọc tiếp

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO

Bài 1: SGK 60

      Nhập chương trình :

       uses crt;

       var N,I:integer;

       begin

                clrscr; 

                write (Nhap so N='); readln(N);

                writeln;

                writeln('Bang nhan',N);

                writeln;

                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);

               readln

end

                                                            Câu hỏi ôn tập: 

a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .

b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?

c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1
23 tháng 2 2021

b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100

c)

Nhân từ 10 đến 100

20 tháng 10 2018

chắc có hoặc ko?

20 tháng 10 2018

ha

30 tháng 12 2016

const không có ';'

4 tháng 1 2017

thật ra chữ " const " là thừa đấy chỗ sai là : (4, 'x' , 'i' , '=' , 4*i) ; hai bên số 4 không có dấu '