Bài 6. Câu lệnh điều kiện

INPUT:Dãy các số từ 1 đến n
OUTPUT:Tổng các số đó
Mô tả thuật toán:
b1: SUM<--1; i,<--1
b2:SUM<--SUM +i; i<--i+1
b3: Nếu i<= n thì quay lại bước 2, ngược lại thông báo giá trị và kết thúc thuật toán

Tự làm đi

Program bai1;

uses crt;

var T: real;

begin

clrscr;

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

if T > 10000 then writeln('so tien thanh toan la : ' ,0.7*T:4:2 ,' VND')

else

writeln('so tien thanh toan la :' ,0.9*T:4:2 , ' VND');

readln;

end.

Program bai1;

uses crt;

var DTB: real;

v,t: integer;

begin

clrscr;

repeat

write('nhap diem van =' ); readln(v);

write('nhap diem toan ='); readln(t);

until (v <= 10 ) and ( v >=0) and (t <=10) and (t >=0);

DTB:=(v+t) / 2;

writeln(' diem trung binh hai mon =' ,DTB:4:2);

if (DTB >= 8.0) and (v >=6.5 ) and (t >=6.5) then

writeln('dat loai gioi');

if (DTB >=6.5) and ( v >=5 ) and (t >=5) then

writeln('dat loai kha ') else

writeln('khong dat duoc loai gioi va kha ');

readln;

end.

duong nguyenvan giúp mình

program b1;

uses crt;

var N:longint;

begin

clrscr;

writeln('Nhap so nguyen bat ki');read(N);

if (N mod 2=0) then write(N,' la so chan)

else write(N,' la so le);

readln

end.

1. program daihocthangtien;

uses crt;

var tuoi,ns,nht:longint;

begin

clrscr;

write('Nhap nam sinh');readln(ns);

write('Nhap nam hien tai');readln(nht);

tuoi:=nht-ns;

if tuoi>=18 then write('Ban da du tuoi vao dai hoc')

else write('Ban chua du tuoi vao dai hoc');

readln

end.

2.

program bai2;

uses crt;

var n : longint;

begin

clrscr;

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

if n >= 0 then write(n , ' la so nguyen duong')

else write(n , ' la so nguyen am ');

readln;

end.

3.

program bai3;

uses crt;

var a,b: longint;

begin

clrscr;

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

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

if a>b then writeln('a lon hon b ') else

writeln('a nho hon b ');

readln;

end.

var n : real;

begin

write('Nhap diem kiem tra : '); readln(n);

if n<6.5 then write('Loai Trung binh')

else if n<8 then write('Loai kha')

else write('Loai gioi');

readln

end.

program tongdiem;

uses crt;

var a,b,c,d,T:byte;{thang điểm 10 nha}

begin

clrscr;

write('Nhap diem mon thu nhat');readln(a);

write('Nhap diem mon thu hai');readln(b);

write('Nhap diem mon thu ba');readln(c);

write('Nhap diem mon thu tu');readln(d);

T:=a+b+c+d;

if T>=20 then write('Ban da dau voi so diem la: ',T:10:2)

else write('Ban da rot');

readln

end.

program kiem_tra_so;

uses crt;

var a,k : integer;

begin clrscr;

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

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

If a = 2 * k then writeln(' a la so chan')

else writeln(' a la so le ');

readln;

end.

viết chương trinh in ra 100 dong thong bao chào các bạn