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.

uses crt;

var a,b,c,max:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('So lon nhat la: ',max:4:2);

readln;

end.

7 tháng 4 2023

program TimSoLonNhat;

var a, b, c, d: integer; 

begin
  writeln('Nhap vao gia tri cua a: ');
  readln(a);
  writeln('Nhap vao gia tri cua b: ');
  readln(b);
  writeln('Nhap vao gia tri cua c: ');
  readln(c);
  writeln('Nhap vao gia tri cua d: ');
  readln(d);

  if (a > b) and (a > c) and (a > d) then
    writeln('So lon nhat la: ', a)
  else if (b > a) and (b > c) and (b > d) then
    writeln('So lon nhat la: ', b)
  else if (c > a) and (c > b) and (c > d) then
    writeln('So lon nhat la: ', c)
  else
    writeln('So lon nhat la: ', d);
    readln;
end.

6 tháng 11 2024

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.

 

 

Viết chương trình Python có sử dụng chương trình con giải các bài toán sauCâu 1 (4 đ). Tìm số tự nhiên n lớn nhất thỏa mãn điều kiện sau: 3n^5 – 317n<a Với a là một số thực bất kì nhập tử bản phim.                                                                Câu 2 (4 đ). Số đẹp. Một số nguyên dương được gọi là đẹp nếu tổng binh phương các chữ số của nó (trong dạng...
Đọc tiếp


Viết chương trình Python có sử dụng chương trình con giải các bài toán sau

Câu 1 (4 đ). Tìm số tự nhiên n lớn nhất thỏa mãn điều kiện sau: 3n^5 – 317n<a Với a là một số thực bất kì nhập tử bản phim.                                                                Câu 2 (4 đ). Số đẹp. Một số nguyên dương được gọi là đẹp nếu tổng binh phương các chữ số của nó (trong dạng biểu diễn thập phân) là một số nguyên tố, Ví dụ: 12 là một số đẹp vì l^2+ 2^2 = 5 là số nguyên tố.
Yêu cầu: cho số nguyên N (I<=N<=10^6). Hãy cho biết số N có phải là số đẹp không                                                                                                                        Câu 3 (2 d). Nhập vào 1 dãy N số nguyên a1, a2, ..., an. Tìm số lớn thứ nhì trong dãy đã cho.

0
7 tháng 4 2023

program TimSoLonNhat;

var

     a, b, c, d, max: integer;

begin

     write('Nhap a: '); readln(a);

     write('Nhap b: '); readln(b);

     write('Nhap c: '); readln(c);

     write('Nhap d: '); readln(d);

     max := a;

     if b > max then

          max := b;

     if c > max then

          max := c;

     if d > max then

          max := d;

     writeln('So lon nhat la: ', max);

     readln;

end.

7 tháng 4 2023

program TimSoLonNhat;

var a, b, c, d: integer; 

begin
  writeln('Nhap vao gia tri cua a: ');
  readln(a);
  writeln('Nhap vao gia tri cua b: ');
  readln(b);
  writeln('Nhap vao gia tri cua c: ');
  readln(c);
  writeln('Nhap vao gia tri cua d: ');
  readln(d);

  if (a > b) and (a > c) and (a > d) then
    writeln('So lon nhat la: ', a)
  else if (b > a) and (b > c) and (b > d) then
    writeln('So lon nhat la: ', b)
  else if (c > a) and (c > b) and (c > d) then
    writeln('So lon nhat la: ', c)
  else
    writeln('So lon nhat la: ', d);
    readln;
end.

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,ln;

int main()

{

cin>>a>>b>>c;

ln=a;

ln=max(ln,b);

ln=max(ln,c);

cout<<ln;

return 0;

}

6 tháng 4 2023

Program HOC24;

var a,b: integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

 

if a> b then write(a);

if a<b then write(b);

if a=b then write('2 so bang nhau');

readln

end.

6 tháng 3 2023

a = int(input('Nhập số nguyên a: '))

b = int(input('Nhập số nguyên b: '))

c = int(input('Nhập số nguyên c: '))

if a > b and a > c:

          print('Số lớn nhất là a =', a)

elif b > a and b > c:

          print('Số lớn nhất là b =', b)

else:

          print('Số lớn nhất là c =', c)

7 tháng 4 2023

Var a,b:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

If a > b then write('So lon la ',a:10:2)

Else if b > a then write('So lon la ',b:10:2)

Else write('Hai so bang nhau');

Readln;

End.

22 tháng 5 2023

Cho mình hỏi :10:2 là sao vậy bn

14 tháng 3 2023

Program HOC24;

var i,n,max: integer;

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

begin

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

i:=1; max:=-1;

while i<=n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

if a[i]>max then max:=a[i];

i:=i+1;

end;

write('So lon nhat la: ',max);

readln

end.