Nguyễn Lê Phước Thịnh's Profile

2 cú pháp

tổng các số chẵn trong khoảng từ 1 tới n hả bạn

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

 if i mod 2=0 then t:=t+i;

writeln('tong cac so chan trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

A

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 10 do

write(i:4);

readln;

end.

a

cực kỳ dễ

uses crt;

var a,b,tam:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

writeln('gia tri ban dau cua a la: ',a);

writeln('gia tri ban dau cua b la: ',b);

tam:=a;

a:=b;

b:=tam;

writeln('gia tri cua a sau khi doi cho la: ',a);

writeln('gia tri cua b sau khi doi cho la: ',b);

readln;

end.

viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử.sau đó hãy tách thành 2 dãy ,một dãy chứa số âm,một dãy chứa sô dương

quá dễ

uses crt;
var a,b,c:array[1..100]of integer;
    i,j,n,dem1,dem2:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
  begin
     write('a[',i,']=');readln(a[i]);
  end;
{-----------------xuat--------------}
writeln('day ban dau la: ');
for i:=1 to n do
  write(a[i]:4);
{----------------xu-ly-----------------}
dem1:=0;
dem2:=0;
for i:=1 to n do
  begin
     if a[i]<0 then
        begin
           inc(dem1);
           b[dem1]:=a[i];
        end;
     if a[i]>0 then
        begin
           inc(dem2);
           c[dem2]:=a[i];
        end;
  end;
writeln;
writeln('day so am la: ');
for j:=1 to dem1 do
  write(b[j]:4);
writeln;
writeln('day so duong la: ');
for j:=1 to dem2 do
  write(c[j]:4);
readln;
end.

cái này dễ ẹc à: bạn chỉ cần mở alt+enter thôi