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.

Câu 1: D
Câu 2: A

Câu 3: A

Câu 4: B

Câu 5: B

Câu 6: C

Câu 7: D

Dòng 4: 

sửa lại: readln(a);

Dòng 5: 

sửa lại: readln(b);

Dòng 6: 

Sửa lại: thêm dấu chẩm phẩy sau lệnh gán

Dòng 11: Thêm dấu chấm sau chữ end

8 tháng 1 2022

17 tháng 7 2021

Bài 4

uses crt;
var a,b: integer;
c,s,d:real;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then
begin
c:=sqrt(a*a+b*b);
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln(c:4:2,'  ',s:4:2);
end
else writeln('nhap lai');
readln
end.

17 tháng 7 2021

Bài 5

uses crt;
var r: integer;
s,t: real;
begin
clrscr;
readln(r);
s:=r*r*3.14;
t:=2*3.14*r;
writeln(s:4:2,'  ',t:4:2);
readln
end.

Câu 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Câu 3: 

uses crt;

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

i,n,t,t1,t2,t3:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

t1:=0;

t2:=0;

for i:=1 to n do 

  begin

t:=t+a[i];

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

end;

writeln('Tong cua day la: ',t);

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

t3:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then t3:=t3+a[i];

writeln('Tong cac so chia het cho 3 la: ',t3); 

readln;

end.

Thuật toán là dãy hữu hạn các thao tác cần thực hiện để giải một bài toán

các bước:

-Xác định bài toán: Xác định thông tin đã cho (Input) Thông tin cần tìm (Output)

-Mô tả thuật toán: Tìm cách giải bài toán và diễn tả bằng các lệnh cần phải thực hiện

-Viết chương trình: Dựa vào mô tả thuật toán, ta viết chương trình bằng một ngôn ngữ lập trình.

22 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if ((n%2==0) and (n>0)) cout<<"Hop le";

else cout<<"Khong hop le";

return 0;

}

Câu 3: 

a: if n mod 3=0 then writeln('n la mot so nguyen chia het cho 3');

b: if t>=5 then writeln('chuc mung! ban da qua mon')

else writeln('rat tiec! ban phai hoc lai');

Câu 4: 

Cái này bạn Thành nói đúng. Bởi vì chúng ta có thể thay phần else ở đằng sau câu lệnh điều kiện dạng đủ thành một câu lệnh if có điều kiện ngược lại câu lệnh if ở trên