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.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

double tb=(a+b)/2;

if (tb>=5) cout<<"ket qua dat";

else cout<<"ket qua khong dat";

return 0;

}

30 tháng 12 2021

sao ko giống gì mình học vậy:) mình nhwos sương sương là program rồi đến uses crt j mà ta

19 tháng 2 2023

Program HOC24;

var i,n,d: integer;

begin

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

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.

9 tháng 5 2021

program mang;
uses crt;
var n,i,chan, le,max,min: Integer;
a:array[1..100] of integer;
begin
write('nhap so phan tu ');read(n);
for i:=1 to n do
begin
write('nhap so thu ',i); readln(a[i]);
end;
max:=a[1]; min:=a[1]; chan:=0;le:=0;
for i:=1to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
if a[i] mod 2 = 0 then chan:=chan+1
else le:=le+1;
end;
writeln('max la: ',max);
writeln('min la: ',min);
writeln('so phan tu chan: ',chan);
writeln('so phan tu le: ',le);
readln
end.

Đề thiếu rồi bạn

QT
Quoc Tran Anh Le
Giáo viên
18 tháng 11 2023

1. Chèn thêm văn bản vào ảnh là cách để ghi chú, gửi gắm thông điệp… giúp bức ảnh trở nên độc đáo, sinh động, cuốn hút hơn.

QT
Quoc Tran Anh Le
Giáo viên
18 tháng 11 2023

2. Công cụ Text  giúp em chèn thêm văn bản vào hình ảnh.

uses crt;

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

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.

19 tháng 4 2023

program XuatSoChan;
uses crt;
const
  Max_N = 20;
type
  MangSoNguyen = array [1..Max_N] of integer;
var
  A: MangSoNguyen;
  i, n: integer;
begin
  clrscr;
  write('Nhap so luong phan tu cua mang: ');
  readln(n);
  writeln('Nhap cac phan tu vao mang:');
  for i := 1 to n do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;
  writeln('Cac so chan trong mang la:');
  for i := 1 to n do
  begin
    if A[i] mod 2 = 0 then
      writeln(A[i]);
  end;
  readln;
end.

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2<<endl;

cout<<a*b;

return 0;

}

ai giúp mình làm đề cương câu này với mai mình thi rồi ạ Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *, /, div, moddiv, mod+, -, *, / và <, >, >=, <=, < >, = <, >, >=, <=, < >, =9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *,/and, or, <, >, >=, <=, < >, =and, or<, >, >=, <=, < >, =10.Kết quả của các phép chia hai số nguyên 14 và 5 là:14/5=2; 14 div 5=2; 14 mod 5=4;14/5=2.8; 14 div 5=4; 14 mod 5=214/5=2.8;...
Đọc tiếp

ai giúp mình làm đề cương câu này với mai mình thi rồi ạ

 

Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?

+, -, *, /, div, mod

div, mod

+, -, *, / và <, >, >=, <=, < >, =

 <, >, >=, <=, < >, =

9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?

+, -, *,/

and, or, <, >, >=, <=, < >, =

and, or

<, >, >=, <=, < >, =

10.Kết quả của các phép chia hai số nguyên 14 và 5 là:

14/5=2; 14 div 5=2; 14 mod 5=4;

14/5=2.8; 14 div 5=4; 14 mod 5=2

14/5=2.8; 14 div 5=2; 14 mod 5=4;

14/5=3; 14 div 5=2; 14 mod 5=4

11.Trong Pascal, điều kiện để a, b, c là 3 cạnh của một tam giác đều là:

a = b = c

(a = b) and (b = c)

(a = b) or (b = c)

a = b, b = c

12.Kiểu dữ liệu số nguyên là:

byte, integer

byte, word, integer, longint

char, string

real

13.Cho a=1, b=2, c=3, khẳng định nào sau đây là đúng?

a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3

a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3 và tam giác đó có 1 góc vuông vì thỏa mãn c2=a2 + b2 (theo định lí Pytago)

a, b, c không là 3 cạnh của một tam giác

14.Cú pháp khai báo biến là:

var <danh sách tên biến> : <giá trị>;

var <danh sách tên biến> : <kiểu dữ liệu>;

var <danh sách tên biến> := <kiểu dữ liệu>;

var <danh sách tên biến> = <giá trị>;

15.Cú pháp khai báo hằng là:

var <tên hằng> = <giá trị>;

const <tên hằng> : <giá trị>;

var <danh sách tên hằng> = <giá trị>;

const <tên hằng> = <giá trị>;

16.Cú pháp câu lệnh gán giá trị cho biến là:

<tên biến> = <giá trị>;

<tên biến> : <giá trị>;

<tên biến> := <giá trị>;

<tên biến> := <giá trị>

1
24 tháng 12 2021

Câu 8: A

Câu 9: B

Câu 11: B