Bài 5. Từ bài toán đến chương trình

program TongSoLe;

var

      i, S: integer;

begin

      i := 1;

      S := 0;

      while S < 2000 do

      begin

            S := S + i;

            i := i + 2;

      end;

      writeln('Tong cac so tu nhien le la: ', S);

      readln;

end.

Program HOC24;

var a: integer;

begin

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

if a mod 2=1 then write(a,' la so le') else write(a,' la so chan');

readln

end.

lưu ý sd trong python

a= int(input())

if a%2==1:

print(f'{a} la so le')

if a % 2 == 0:

print(f'{a} la so chan')

#include <bits/stdc++.h>

using namespace std;

int main()

{

int m,n;

cin>>m>>n;

int k=m*n;

for (int i=1; i<=k; i++)

cout<<i<<" ";

return 0;

}

program tim_so_nguyen;

uses crt;

var i,N:integer;

begin

clrscr;

write('nhap so nguyen:');

readln(N);

if N <= 2 then write(N,' khong phai la so nguyen to')

else 

begin

i:=2;

while ( N mod i <> 0 ) do i:=i+1;

if i=N then write(N,' la so nguyen to')

else write(N,' khong phai la so nguyen to');

end;

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt;

cin>>n;

for (int i=2; i<=n; i++)

{

kt=0;

for (int j=2; j*j<=i; j++)

if (i%j==0) kt=1;

if (kt==0) cout<<i<<" ";

}

}

uses crt;

var i,n:integer;

begin

clrscr;

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

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

for i:=1 to n do

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

readln;

end.

nè bn

viết chương trình hả bn?

Tổng hay tích 5 số nguyên hả bn? hay là tổng tích

uses crt;

var x,y:integer;

begin

clrscr;

readln(x,y);

if x>y then write(x)

else write(y);

readln;

end.