uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:
Câu 1(2 điểm)
uses crt;
var a:array[1..100000]of int64;
i,n,x,dem:int64;
begin
clrscr;
readln(n,x);
for i:=1 to n do
read(a[i]);
dem:=0;
for i:=1 to n do
if x=a[i] then inc(dem);
writeln(dem);
readln;
end.
Câu 2(2 điểm)
uses crt;
var n,k,i,dem:int64;
a:array[1..1000000]of int64;
{-----------------chuong-trinh-con-quick-sort------------------------}
procedure qs(d,c:int64);
var i,j,x,tam:int64;
begin
i:=d;
j:=c;
x:=a[(i+j) div 2];
repeat
while a[i]<x do
inc(i);
while a[j]>x do
dec(j);
if i<=j then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
inc(i);
dec(j);
end;
until i>j;
if d<j then qs(d,j);
if i<c then qs(i,c);
end;
{---------------chuong-trinh-chinh------------------}
begin
clrscr;
readln(n);
for i:=1 to n do
read(a[i]);
qs(1,n);
k:=a[n];
dem:=0;
for i:=1 to n do
if k=a[i] then inc(dem);
writeln(dem);
readln;
end.
Câu 3(2 điểm) Bài làm của bạn Hưng Nguyễn Thái
var a,b,c:int64;
begin
read(a,b,c);
if (a+b <= c) and ((c-a-b) mod 2 = 0) then write('Yes')
else write('No');
end.
Câu 4(6 điểm) Bài làm của bạn Quý Lương
#include<bits/stdc++.h>
#define ll long long
using namespace std;
int main()
{
ios_base::sync_with_stdio(false); cout.tie(NULL);
ll n, k;
cin>>n>>k;
ll d=__gcd(n, k);
n/=d; k/=d;
cout << n/k << '.'
n=n%k*10;
ll s=0, t=k;
for (s; t%2==0 or t%5==0; s++) {
if (t%2==0) t/=2;
if (t%5==0) t/=5;
}
for (s; s>0; s--) {
cout << n/k;
n=(n%k) * 10;
}
if (t==1) cout << "(0)";
else {
ll r =10%t;
for (s=1; r!=1; s++) r=r*10 % t;
cout << '('
for (s; s>0; s--) {
cout << n/k;
n=(n%k)*10;
}
cout << ')'
}
}
Câu 5(8 điểm) Bài làm của bạn Trần Nguyễn Đăng Dương
#include <bits/stdc++.h>
using namespace std;
int n;
long long a[100001];
long long f[100001];
void ans(long long x)
{
int dem=1;
for (long long i=2;i*i<=x;i++)
if (x%i==0)
{
f[dem]=i;
if (i!=sqrt(x))
{
f[dem+1]=x/i; dem+=2;
}
else dem++;
}
f[dem]=x;
sort(f+1,f+dem);
for (int i=1;i<=dem;i++) cout<<f[i]<<endl;
}
int main()
{
ios_base::sync_with_stdio(false);
cin.tie(nullptr); cout.tie(nullptr);
cin>>n;
for (int i=1;i<=n;i++) cin>>a[i];
long long gcd=abs(a[2]-a[1]);
for (int i=3;i<=n;i++)
gcd=__gcd(gcd,abs(a[i]-a[i-1]));
ans(gcd);
}
ai đúng hết hoặc nhiều thì chúc mừng
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
Program tong_so_le;
Uses crt;
Var S,N,I:Integer;
Xữa chương trình sau( nếu sai)
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do If (I mod 2<>0) then
S:=S+I;
Writeln('Tong cac so le la ',S); Readln;
End.
Giup mik nha các bn
Thanks
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
- Cho biết chương trình sau đây làm công việc gì ?
Uses crt;
Var
S,i: integer;
Begin
S:=0;
for i:= 1 to 10 do
begin
S:= S + i*i;
writeln('Buoc thu ', i, ' tong S=', S);
end;
readln;
End.
Câu 43: Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?
Var n, i , s:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua n :'); Readln(n);
s:=2;
For i:=1 to n do s:=s+1;
End;
a. 6.
b. 8.
c. 10.
d. 12.
mọi người giúp mình
Sửa lỗi chương trình sau
Program bang_cuu_chuong
Uses crt;
Var N: read;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N)
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N')
readln
end.
program bang_cuu_chuong ;
Uses crt;
Var N , i : integer ;
Begin
Clrscr ;
write('Nhap so N=');
readln(N);
writeln;
write ('Bang nhan',N) ;
writeln;
for i:=1 to 10 do
writeln(N,'x',i:2,'=',N*i);
readln ;
End.
Chương trình sau khi sửa lỗi:
Program bang_cuu_chuong;
Uses crt;
Var N: real;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N);
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N);
readln
end.
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.