nếu ước chung thì phải là "y có cùng ước chung" ? chứ sao "y có là ước chung của x" ?

Bạn cần đăng câu hỏi rõ rãng, không chỉ viết tên bài tập hoặc bài tập số mấy ví dụ như là bài 52 sgk hay là bài tập 6 như bn vừa viết.

1)

program MQRN;

uses crt;

var N,S,i: longint;

begin

Writeln('Nhap n'); Readln(n);

i:=1; S:=0;

while i<=N do

begin

if (i mod 2)=0 then S:=S+i;

i:=i+1;

end;

Writeln('Tong cac so chan la :',S);

Readln;

end.

2)

program Tim_so_am;

uses crt;

var a: array[1..1000] of integer;

i,N: longint;

begin

Writeln('Nhap so phan tu N: '); Readln(n);

for i:= 1 to n do

begin

Writeln('Nhap so thu ',i); Readln(a[i]);

end;

for i:= 1 to n do if a[i] < 0 then Write(a[i]:5);

Readln;

end.

#include <bits/stdc++.h>
using namespace std;

long long a,b;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

int main()

{

cin>>a>>b;

if (ucln(a,b)==1) cout<<"Toi gian";

else cout<<"Khong toi gian";

return 0;

}

Câu 1:

PROGRAM TIM_MAX;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
BEGIN
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
END.

Câu 2:

PROGRAM TIM_MIN;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A: Mang;
N, i, Min: Integer;
BEGIN
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']= '); Readln(A[i]);
End;
Min:=A[1];
For i:=2 To N Do
If Min>A[i] Then Min:=A[i];
Writeln('Phan tu nho nhat cua mang la:', Min);
Readln;
END.

- Ta có thể chọn ô, khối, hàng, cột.
- Ta có thể thay đổi độ cao của hàng, độ rộng của cột.
- Ta có thể chèn thêm hoặc xóa bớt cột, hàng.

integer nke

integer, longint hoặc byte

C1: Cấu trúc:
Cú pháp lệnh:
FOR := TO DO ;
Trong đó:
+ FOR, TO, DO: là từ khóa.
+ Biến đếm: thuộc kiểu dữ liệu số nguyên.
+ Giá trị đầu, giá trị cuối: là giá trị nguyên.
+ Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.

Hoạt động: Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.

C2: Cấu trúc:

• Bước 1: Máy thực hiện câu lệnh 1.
• Bước 2: Sau đó tính giá trị của biểu thức 1 , nếu giá trị của biểu thức 1 sai thì ch ương tr ình thoát ra khỏi vòng lặp. Nếu giá trị của biểu thức 1 đúng thì quay lại b ước 1.

PROGRAM TINH_TONG;

Uses Crt;

N, i, C:Integer;

BEGIN

clrscr();

Repeat

begin

Write('Nhap N='); Readln(N);

end;

Until N>0;

C:=1;

For i:=2 To N Do

C:= C + i*i*i;

Writeln('Tong can tim la C = ', C);

Readln;

END.

var i,n:integer;

s:longint;

begin

write('nhap so n:'); readln(n);

s:=0;

for i:=1 to n^3 do s:=s+i;

readln

end.

program CTNMT;

uses crt;

var n,i,dem: longint;

A: array [1..1000] of longint;

Begin

Writeln('Ban hay N'); Readln(n);

for i:=1 to n do

begin

Writeln('Nhap so thu ',i); Readln(a[i]);

end;

Writeln('In ra mang:');

for i:1 to n do Write(a[i]:5);

writeln;

Writeln('In ra so chan trong mang');

for i:= 1 to n do

begin

if (a[i] mod 2) = 0 then Write(a[i]:5)

if a[i] < 0 then dem:= dem +1;

end;

writeln('so so nguyen am la: ',đem);

REadln;

end.