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 4:
Số lần biết trước:
- Mỗi ngày em nấu cơm 3 lần
- Mỗi ngày em đánh răng buổi sáng và buổi tối
- Em bị phạt chép 100 lần
Số lần chưa biết trước:
- Mẹ bảo em múc nước đến khi đầy bình
- Chữ em xấu, em bị phạt viết chữ đến khi đẹp
Câu 5: Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự, mọi phần tử đều có chung kiểu dữ liệu, gọi là kiểu dữ liệu phần tử.
Câu 6:
Program HOC24;
var S: longint;
i,n: integer;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('S= ',s);
readln
end.
Câu 7:
Program HOC24;
var S: longint;
i,n: integer;
begin
s:=0;
for i:=1 to 200 do s:=s+i;
write('Tong 200 so nguyen dau tien la; ',s);
readln
end.
Câu 8;
Program HOC24;
var S: longint;
i,n: integer;
begin
s:=1;
for i:=1 to 30 do s:=s*i;
write('Tong 30 so nguyen dau tien la; ',s);
readln
end.
uses crt;
var s:string;
a:array[1..100] of integer;
n,i,k,gt:integer;
begin
clrscr;
write('nhap vao xau nhi phan:');
readln(s);
for i:=1 to length(s) do
if s[i]='1' then
a[i]:=1
else
a[i]:=0;
n:=0;
for i:=1 to length(s) do
begin
gt:=1;
for k:=1 to length(s)-1 do
gt:=gt*2;
n:=n+a[i]*gt;
end;
write('so thap phan la:',n);
readln;
end.
Program Hinh_tron;
Uses crt;
Var r,dt:real;
Begin
clrscr;
Writeln(' Nhap ban kinh hinh tron:');
Readln(r);
dt:= r*r*3.14;
Writeln('Dien tich hinh tron la:',dt);
Readln;
End.
Câu 1: C
Câu 2: D
Câu 3: B
Câu 4; B
Câu 5: D
Câu 6: C
Câu 7: A
Câu 8: A
program bai_5;
uses crt;
var a,b,c :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
if a<0 then a:=-a;
max:=a;
if max <b then max:=b;
if max<c then max:=c;
write('gia tri tuyet doi cua a la:',a);
write('so lon nhat trong ba so a,b,c la:',max);
Readln
END.
Thanks