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
nguyen huu loc
Xem chi tiết
Huyền Minh Lam Nguyệt
Xem chi tiết
Huyền Minh Lam Nguyệt
24 tháng 4 2018 lúc 22:36

lam on giup minh voi thu nam minh kiem tra roigianroibucminhoho

Đào Anh
24 tháng 4 2018 lúc 22:49

bảng cửu chương 2 hả bạn ?

Hà Trân Khánh Linh
25 tháng 4 2018 lúc 9:31

Sử dụng For...do

Chương trình tinhtong;

trong đó n, t: số nguyên;

s: thật;

bắt đầu

write('Nhập số n');readln(n);

s: = 0;

Đối với t: = 1 đến n làm s: = s + 1 / t;

writeln('Tổng s là',s);

readln

kết thúc.

Sử dụng While...do

Chương trình tinhtong;

trong đó n, t: số nguyên;

s: thật;

bắt đầu

write('Nhập số n');readln(n);

s: = 0; t: = 1;

Câu 2:Trong khi t <= n làm

bắt đầu t: = t + 1;

s: = s + 1 / t kết thúc;

writeln('Tổng s là',s);

readln

kết thúc.

nguyễn thị lê
Xem chi tiết
Kiều Vũ Linh
9 tháng 5 2023 lúc 16:14

var s,i,n:integer;

begin

Write('n = ');

While (n > 100) and (n < 1) then

Begin

write('Nhap sai, nhap lai ');readln(n);

End;

for i:=1 to n do

s:=s+i;

write('tong la: ',s);

readln;

end.

duclinh
Xem chi tiết
hong nhung
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:40

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

minh nguyen cong
Xem chi tiết
Minh Lệ
21 tháng 4 2019 lúc 8:45

Lời giải :

program hotrotinhoc ;

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

i,n,max : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

max:=a[1];

for i:= 1 to n do if max<a[i] then max:=a[i];

write('So lon nhat la:',max');

readln

end.

Nguyen Dang Ngoc nhi
Xem chi tiết
Nguyễn Thái Sơn
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 11 2021 lúc 0:00

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"a truoc khi doi la:"<<fixed<<setprecision(2)<<a<<endl;

cout<<"b truoc khi doi la:"<<fixed<<setprecision(2)<<b<<endl;

swap(a,b);

cout<<"a sau khi doi la:"<<fixed<<setprecision(2)<<a<<endl;

cout<<"b sau khi doi la:"<<fixed<<setprecision(2)<<b;

return 0;

}

Duongtrucqui
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 6 2020 lúc 20:19

uses crt;

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

n,i,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so nguyen duong la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

writeln;

writeln('Cac so nguyen to la: ');

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.