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

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