Var n,sc,sl,i:longint;

Begin

Write('N = ');readln(n);

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.

uses crt;
var n,t:int64;
dem,i:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<1000000000);
writeln('Cac so chinh phuong trong khoang tu 1 toi ',n,' la: ');
dem:=0;
t:=0;
for i:=1 to n do
if sqrt(i)=trunc(sqrt(i)) then
begin
write(i:6);
inc(dem);
t:=t+i;
end;
writeln;
writeln('So so chinh phuong trong khoang tu 1 toi ',n,' la: ',dem);
writeln('Tong cac so chinh phuong trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.

Câu 1.
int main() {
int cot, dong;
cin >> cot >> dong;
if ((cot + dong) % 2 == 0) cout << "NO";
else cout << "YES";
}

uses crt;

var a,b:longint;

Begin

clrscr;

Writeln('Nhap a,b=');

Readln(a,b);

writeln('tich hai so la : a*b=',a*b);

writeln('thuong hai so la :a/b=',a/b);

Readln;

End.

mk chịu!!

program ho_tro;

uses crt;

var n,i: integer;

s: longint;

begin

clrscr;

writeln(' nhap so n'); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(' tong cua' , n, ' so tu nhien dau tien =' , s);

readln

end.

mk bấm nhằm, sửa lại dùm mk là tin học 11 nhé!

1:

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cout<<"Day ban dau la: "<<endl;

for (i=1;i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

sort(a+1,a+n+1);

cout<<"Day tang dan la: "<<endl;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

A

C

uses crt;

var n,i:longint;

kt:boolean;

begin

clrscr;

readln(n);

if (n<2) then writeln('Nhap lai')

else 

begin

kt:=true;

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

  if n mod i=0 then

begin

kt:=false;

break;

end;

if kt=true then writeln('la so nguyen to')

else writeln('khong la so nguyen to');

end;

readln;

end.

chat jpt >:)))