Bài 3: Cấu trúc chương trình

program bai1;

var mP,mO:longint;

lc:char;mol:real

begin

write('Ban muon tinh so mol cua P hay O ');

readln(lc);

if lc='P' then

begin

write('So mol cua P la ');readln(mP);

mol:=mP/M(PTK của P tự tính nha);

write('So mol la ',mol:4:2);

end;

mol của O tương tự

readln

end.

uses crt;

var i,n,dem:integer;

begin

clrscr;

repeat

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

until n>0;

writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');

for i:=5 to n do 

  if (i mod 2=0) and (i mod 7=0) then write(i:4);

writeln;

writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');

dem:=0;

for i:=5 to n do 

  if i mod 7=0 then 

   begin

write(i:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);

readln;

end.

uses crt;

var m,n,t,i:integer;

begin

clrscr;

repeat

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

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

until m<n;

t:=0;

for i:=m to n do 

  if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln('Tong cac so chia het cho 3 va 5 trong khoang tu ',m,' toi ',n,' la: ',t);

readln;

end. 

var a,b: real;

begin

write('Nhap a,b: '); readln(a,b);

if a < b then writeln(a:5:2) else if a > b then writeln(b:5:2) else writeln('Khong co');

end.

uses crt;

var a,b:real;

begin

clrscr;

repeat

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

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

until a<>b;

if a<b then writeln('So nho nhat la: ',a:4:2)

else writeln('So nho nhat la: ',b:4:2);

readln;

end.

uses crt;

var i,t,kt,j:integer;

begin

clrscr;

t:=0;

for i:=999 downto 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln('Tong cac so nguyen to trong day la: ',t);

readln;

end.

ko có cái biến nào đâu bạn ơi

có thể bạn khai báo array thì có thể chứa 2 số thực á

#include <bits/stdc++.h>
using namespace std;
int main() {
double x, y;
cin >> x;
if(x<0) {cout << "Khong co y thoa man bieu thuc tren";}
if(x>=0)
{y=cbrt(x)+sqrt(x)+1;
cout << y << endl;}
return 0;
}

Chúc bn học tốt!

uses crt;

begin

writeln('Xin chao cac ban');

writeln('Moi ban den voi Pascal');

readln;

end.