Một số khái niệm về lập trình và ngôn ngữ lập trình

Lehoang Maii
Xem chi tiết
Đoàn Xuân Sơn
25 tháng 9 2018 lúc 22:07

var

n,i:integer;

begin

write(' nhap n : '); readln(n);

for i:= 1 to n do

begin

write( i ,' ! ');

end;

readln

end.

end;

Bình luận (0)
Đoàn Xuân Sơn
25 tháng 9 2018 lúc 22:08

var

i,n:integer;

begin

write('nhap n : ');

readln(n);

for i:= 1 to n do

write(i,' ! ');

readln

end.

{ cau tren sai roi nha ban }

Bình luận (0)
Lehoang Maii
Xem chi tiết
Lê Công Đắt
19 tháng 9 2018 lúc 16:17

var a: array[1..10000] of longint; s: longint;

begin

repeat

readln(a[i]);

s:=s+a[i];

until a[i]=0;

write(s);

readln

end.

Bình luận (1)
Đoàn Xuân Sơn
25 tháng 9 2018 lúc 22:03

var

i,d,n:integer;

s:longint;

a:array [1..32000] of integer;

begin

write(' nhap n: '); readln(n);

for i:= 1 to n do

begin

write('a[',i,']= '); readln(a[i]);

inc(d);

if a[i] = 0 then break;

end;

for i:= 1 to d do

s:= s + a[i];

write(' tong so vua nhap la : ',s);

readln;

end.

Bình luận (0)
Ta Nobi
Xem chi tiết
duong nguyenvan
10 tháng 1 2018 lúc 15:03

1.

Program bai1;

uses crt;

var n,i: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i := 1 to n do

if n mod i = 0 then

write(i :2 , ' , ');

readln;

end.

Bình luận (0)
duong nguyenvan
10 tháng 1 2018 lúc 15:03

2.

program bai2;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i: 1 to n do

if i mod 2 = 0 then

write(i: 3 ,',');

readln;

end.

Bình luận (0)
phạm quốc cường
Xem chi tiết
Đặng Văn Sơn
Xem chi tiết
Anh Nguyễn
Xem chi tiết
Dương Văn Nam
Xem chi tiết
Nguyễn Quang Anh
6 tháng 4 2018 lúc 22:15

Program Vidu;
Uses crt;
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
clrscr;
Writeln('Nhap gia tri cho mang A');
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]); { đọc vào giá trị cho A thứ i}
End;
Write('Danh sach cac phan tu trong mang A: ');
For i:=1 to 10 do
Write(A[i]:5);
Readln;
End.

Bình luận (0)
Ta Nobi
Xem chi tiết
duong nguyenvan
10 tháng 1 2018 lúc 15:09

Program bai1;

uses crt;

var dem,n,i: integer;

begin

clrscr;

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

dem:=0;

for i:= 1 to n do

if i mod 2 = 1 then

begin

write(i:3,',');

dem:= dem+1 ;

if dem mod 15 = 0 then writeln;

end;

readln;

end.

Bình luận (0)
Trang Nguyen
Xem chi tiết
Lê Công Đắt
19 tháng 9 2018 lúc 16:30

var n, i: word;

begin

readln(n);

while (n<>0) do

begin

writeln(n mod 10);

n:=n div 10;

end;

readln

end.

Bình luận (0)