Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Cau 3:
var n:integer;
begin
read(n);
if n mod 4=0 then write('Nam ',n,' co 366 ngay')
else write('Nam ',n,' co 365 ngay');
end.
Cau 4:
var a,b,c:integer;
begin
read(a);
read(b);
read(c);
if (a+b>c) and (a+c>b) and (b+c>a) then write('Co the tao thanh mot tam giac')
else write('Khong the tao thanh mot tam giac');
readln;
end.
Cau 6:
var n,i:integer;
begin
read(n);
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.
const fi='sn.inp';
fo='sn.out';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a-b);
close(f1);
close(f2);
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
#include <iostream>
using namespace std;
int main()
{
int n,m[1001],nam=0,nu=0;
cin>>n;
for(int i=1;i<=n;i++)
{
cin>>m[i];
if(m[i]==1)
nam++;
if(m[i]==2)
nu++;
}
cout<<"CO: "<<nam<<" hoc sinh nam"<<endl;
cout<<"CO: "<<nu<<" hoc sinh nu";
return 0;
}
Bạn thử lưu lại bài làm với tên + đuôi .pas rồi thử ctrl+F9 lại nhé. Nếu không được thì bạn xóa Free Pascal đó và tải lại nha.