Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Thúy Hiền

Giúp mik nha mấy bạn mik đang cần gấp lắm 😊😊😊😘😘😘😘Bài tập Tin học

Phương Dung Châu
27 tháng 4 2017 lúc 19:34

4. program bai_4;

ues crt;

var

s,n,i:integer;

begin

clrscr;

write('nhap n:');readln(n);

s:=0;

for i:=1 to n do

if i (mod 2=0) then s:=s+1;

write('tong la:',s:7);

readln;

end.

5.program bai_5;

uses crt;

var

i,s,n:integer;

begin

clrscr;

write('nhap n :');readln(n);

s:=0;

for i:=1 to n do s:=s+1;

writer('tong la:',s);

readln;

end.

Phương Dung Châu
27 tháng 4 2017 lúc 19:52

8.program bai_8;

uses crt;

var

A:=array[1..100]of integer;

i,n,max: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],' ');

max:=a[1];

for i:= 1 to n do

if a[i] mod> max then:=a[i];

write('gia tri lon nhat trong mang la:',max);

readln;

end.

Hoa Nguyen
10 tháng 5 2017 lúc 20:45

6.

var S,i:integer;

begin

S:=0;

i:=0;

while s<=1000 do

begin

i:=i+1;

s:=s*i;

end;

write(; so i nho nhat de tich >1000 la ', n);

write('tich dau tien >1000 la', s);

end.haha


Các câu hỏi tương tự
Bùi Minh Tuấn Anh
Xem chi tiết
Phúc Nguyễn
Xem chi tiết
Trần Linh Trang
Xem chi tiết
Xem chi tiết
Trầm tiến
Xem chi tiết
Violet Evergarden
Xem chi tiết
Việt Hoàng
Xem chi tiết
Duongtrucqui
Xem chi tiết