Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
ngocanh
Xem chi tiết
ngocanh
1 tháng 12 2021 lúc 22:08

giúp em với

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

 

Trần Minh Tâm
1 tháng 12 2021 lúc 22:33

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

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

c= a+b;

write('Tong hai so a b la:',c);

end.

42. Nguyễn Thị Thanh Tuy...
Xem chi tiết
Vô danh
16 tháng 3 2022 lúc 8:27

Var i,S,n: longint;

Begin

Readln(n);

For i:=1 to n do S:=S+i

Write(S);

Readln

End.

Ynasuya
16 tháng 3 2022 lúc 8:46

program Tinh_tong;

Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.

Nguyễn Taetruc
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:23

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

  s[i]:=upcase(s[i]);

writeln(s);

readln;

end.

yến nhi
Xem chi tiết
Minh Lệ
15 tháng 4 2022 lúc 20:01

Câu 1:

s=0; i=0

Vòng lặp thứ 1: i<3 -> đúng -> i=i+1=0+1=1; s=s+i*i=0+1*1=1

Vòng lặp thứ 2: i<3 -> đúng -> i=i+1=1+1=2; s=s+i*i=1+2*2=5

Vòng lặp thứ 3: i<3 -> đúng -> i=i+1=2+1=3; s=s+i*i=5+3*3=14

Vòng lặp thứ 4: i<3 -> sai -> không thực hiện vòng lặp -> kết thúc vòng lặp

Vậy kết quả S in ra màn hình là 14

Minh Lệ
15 tháng 4 2022 lúc 20:02

Câu 2:

Program HOC24;

var a,b: integer;

s: longint;

begin

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

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

s:=a*a+b*b;

write('S= ',s);

readln

end.

nuinuini
Xem chi tiết
lamgi hoi
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 14:23

cau 1:

uses crt;

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

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

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

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

nguyễn bảo nga
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:25

#include <bits/stdc++.h>

using namespace std;

long long i,n;

double s;

int main()

{

cin>>n;

s=0;

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

 s=s+((1*1.0)/(2*(i*1.0+1*1.0)));

 cout<<fixed<<setprecision(2)<<s;

return 0;

}

Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:17

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

Đỗ Thành Nhân
3 tháng 5 lúc 11:14

nbbnbnbbnn\(\dfrac{^{ }}{ }\)

Nguyễn Thái Luật
Xem chi tiết
datcoder
26 tháng 3 lúc 8:34

#include <stdio.h>

int main(){

    int n;

    scanf("%d",&n);

    long t=0; int i,j;

    for (i=2; i<=n; i++){

        int c=0;

        for (j=2; j<i; j++)

            if (i%j==0) c++;

        if (c==0) t=t+i;

        }

printf("%d",t);

return 0;

}

datcoder
9 tháng 1 lúc 23:47

Bạn trình bày lại đề bài rõ hơn nha, đề đọc rất khó hiểu ấy.