K
Khách

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.

29 tháng 9 2019

Lời giải:

program hotrotinhoc;

var max,min,i,x,k: integer;

begin

write('X='); readln(x);

write('K='); readln(k);

min:=32000; max:=0;

for i:=1 to x do if (x mod i=0) then

begin

(min>i) then min:=i;

if (max<i) then max:=i;

end;

writeln(min,' ',max);

write(sqr(x),' ',k-x);

readln

end.

10 tháng 7 2021

var a,b,i,t,s: word;

begin

repeat

writeln('Nhap A,B vao: (cach nhau boi dau Enter)');

readln(a);

read(b);

writeln('Nhap lai gia tri A,B: ');

until (a>=1) and (b>=1) and (a<=10000) and (b<10000);

s:=a+b;

t:=a*b;

if s<t then i:=s else i:=t;

while (s mod i <> 0) or (t mod i <> 0) do i:=i-1;

writeln('UCLN cua A+B va AB: ',i);

writeln('So du khi chia AB cho A+B: ', t mod s);

end.

uses crt;

var n,i:integer;

m:real;

begin

clrscr;

repeat

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

until (1<=n) and (n<=30000);

m:=0;

for i:=1 to n do 

  m:=m+sqrt(i);

writeln('m=',m:4:2);

readln;

end.

8 tháng 3 2021

đó là câu trả lời cho dòng 1 đúng không ạ

uses crt;

var n,i,d,x,j,tam:longint;

a:array[1..11]of integer;

st:string;

begin

clrscr;

repeat

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

until n>0;

str(n,st);

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],a[i],x);

end;

for i:=1 to d-1 do 

  for j:=i+1 to d do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to d do 

  write(a[i]);

readln;

end.

1.     Thực hànhBài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.•         Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là...
Đọc tiếp

1.     Thực hành

Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.

Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.

•         Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:

•         z:=y { gán giá trị số 7 vào biến nhớ z }

•         y:=x { gán giá trị số 5 vào biến nhớ y }

•         x:=z { gán giá trị số 7 vào biến nhớ x }

Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:

      X= a + b + c

      Y= (a + b)2 / c.

      Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.

 

1
18 tháng 12 2021

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

7 tháng 1 2022

Số N (0<N<10 mũ 9)

7 tháng 1 2022

N = int(input())
A = 0
B = 0
So_uoc = 0
KQ = ""
for x in range(1, N):
    if (x%2==0) and (x%3==0):
        A += 1
    if (x>0) and (N%x==0):
        if (x>B):
            B = x
for i in range(1, N+1):
    if (N%i==0):
        So_uoc += 1
if (So_uoc == 2):
    KQ = "YES"
else:
    KQ = "NO"
print(A)
print(B)
print(len(str(N)))
print(KQ)

(Chẳng biết đúng không đâu bucminh)

9 tháng 3 2023

# Nhập số nguyên dương N từ bàn phím

N = int(input("Nhập số nguyên dương N: "))

# Khởi tạo dãy số nguyên

numbers = []

# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers

for i in range(N):

     number = int(input("Nhập số thứ {}:".format(i+1)))

     numbers.append(number)

# In ra dãy số đã nhập

print("Dãy số bạn đã nhập là: ", end="")

for number in numbers:

     print(number, end=" ")

print()

# Tính tổng các số chia hết cho 3 và in ra màn hình

total = 0

for number in numbers:

     if number % 3 == 0:

          total += number

print("Tổng các số trong dãy chia hết cho 3 là: ", total)

23 tháng 5 2022

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

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

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

 write('A[',i,']= ');

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.