Những câu hỏi liên quan
Nguyễn Ân
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:28

#include <bits/stdc++.h>

using namespace std;

double b,c;

int main()

{

cin>>b>>c;

if ((b==0) and (c==0)) cout<<"Vo so nghiem";

else if ((b==0) and (c!=0)) cout<<"Vo nghiem";

else cout<<fixed<<setprecision(2)<<-c/b;

return 0;

}

Bình luận (0)
Nguyễn Ân
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:27

#include <bits/stdc++.h>

using namespace std;

double b,c;

int main()

{

cin>>b>>c;

if ((b==0) and (c==0)) cout<<"Vo so nghiem";

else if ((b==0) and (c!=0)) cout<<"Vo nghiem";

else cout<<fixed<<setprecision(2)<<-c/b;

return 0;

}

Bình luận (0)
ʍ๏ɲ ȼhąɲ
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:49

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:50

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.

Bình luận (0)
Elizabeth
Xem chi tiết
gg lol
29 tháng 1 2023 lúc 11:55

import math

a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))

d = b**2 - 4*a*c

if d > 0:
    x1 = (-b + math.sqrt(d)) / (2*a)
    x2 = (-b - math.sqrt(d)) / (2*a)
    print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
    x = -b / (2*a)
    print("Phương trình có nghiệm kép: x =", x)
else:
    print("Phương trình không có nghiệm thực."

Bình luận (1)
haizzz!!
Xem chi tiết
nguyễn an phát
3 tháng 4 2021 lúc 12:02

program tim_chu_so;

uses crt;

var i,n,csln:longint;

k:integer;

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

st:string;

begin

clrscr;

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

str(n,st);

val(st,a[i]);

csln:=a[1];

for i:=1 to length(st) do

if csln<a[i] then csln:=a[i];

writeln('chu so lon nhat cua so ',n,' la:',csln);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:21

Câu 1: 

uses crt;

var n,i,d,x,y,max:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

max:=0;

for i:=1 to d do 

  begin

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

if max<x then max:=x;

end;

writeln('Chu so lon nhat la: ',max);

readln;

end. 

Bình luận (0)
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:23

Câu 2: 

uses crt;

var a,b,i,bcnn:longint;

begin

clrscr;

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

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

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then 

begin

if bcnn<i then bcnn:=i;

end;

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.

Bình luận (0)
Lê Bích Thủy
Xem chi tiết
Đỗ Tuệ Lâm
17 tháng 2 2022 lúc 14:08

{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN 
  clrscr;
  Write('Nhap n:');Readln(n);
  C:=0;L:=0;
  For i:=1 to n do
    If i mod 2=0 then C:=C+i else L:=L+i;
  writeln('Tong cac so chan la:',C);
  writeln ('Tong cac so le la:',L);
  Readln;
end.  
}

Bình luận (0)
hoàng kim
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:25

Bài 1: 

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

Bình luận (1)
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

Bài 2: 

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

max:=a[1];

for i:=1 to n do 

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

writeln(max);

readln;

end.

Bình luận (0)
Thanh Tuyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 2 2021 lúc 13:09

Bài 1: 

function min(a,b:longint):longint;

begin

min:=a;

if min>b then min:=b;

end;

Bài 2: 

function canhhuyen(a,b:real):real;

var c:real;

begin

c:=sqrt(sqr(a)+sqr(b));

canhhuyen:=c;

end;

Bình luận (0)
Nguyễn Hoàng Tân Bảo
Xem chi tiết
Nguyễn Đăng Khải Hoàn
14 tháng 10 2021 lúc 9:02

C1:

khai báo:

      program  hieu_a_va_b   ("tự đặt tên cái này ko cần thiết)

      uses crt;

      var a, b : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

             writeln ("hieu cua hai so la: a - b=" , a - b);

        end.

C2:

khai báo:

      program    tinh_ba_so

      uses crt;

      var a, b, c : integer

phần thân:

       begin

            writeln ("nhap so a");  read(a);

            writeln ("nhap so b");  read(b);

            writeln ("nhap so c");  read(c);

             writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);

        end.

C3:

khai báo:

      program    tinh_ba_so

      uses crt;

      var x, y, z : integer

phần thân:

       begin

            writeln ("nhap so x");  read(x);

            writeln ("nhap so y");  read(y);

            writeln ("nhap so z");  read(z);

             writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);

        end.

nhớ chạy thử chương trình nha. xem có lỗi ko.

(nhớ tick cho mk nha)

 

 

 

 

Bình luận (0)