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.

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.

11 tháng 5 2023

Program HOC24;

var i,n: integer;

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

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

begin

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 if nt(a[i]) then write(a[i],' ');

readln

end.

Câu 1: 

Dùng for..do

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

for i:=1 to 100 do 

  if i mod 2=0 then a:=a+i;

writeln(a);

readln;

end.

Dùng While...do

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

i:=1;

while i<=100 do 

  begin

if i mod 2=0 then a:=a+i;

inc(i);

end;

writeln(a);

readln;

end.

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2;

return 0;

}

28 tháng 12 2020

Cú pháp

If < điều kiện> then < câu lệnh>;

Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình

28 tháng 12 2020

Điều kiện dạng đủ mà bạn!

28 tháng 12 2020

- Từ khóa: là những từ dành riêng, không được dùng các từ khóa này cho bất kì mục đích nào khác ngoài mục đích sử dụng do ngôn ngữ lập trình quy định.

- Tên: Do người lập trình đặt ra cho các đối tượng, đại lượng trong chương trình, nhưng phải tuân thủ theo các quy tắc của ngôn ngữ lập trình cũng như của chương trình dịch. Tuy có thể đặt tùy ý tên, nhưng để dễ sử dụng người ta thường đặt sao cho ngắn gọn nhất, dễ nhớ và dễ hiểu nhất.

VD:

hoc24;

hoc24h;

bai1;

tinhoc;

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}