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.
Lần sau bạn nhớ nêu rõ yêu cầu đề bài là viết chương trình hay viết thuật toán nhé. Bạn chọn là Tin học 10 vì đa số lớp 10 học viết thuật toán nên mình sẽ viết thuật toán.
- Thuật toán liệt kê:
+ Bước 1: Nhập n; dãy a1,a2,a3,...,an
+ Bước 2: i←1; d←0;
+ Bước 3: Nếu i>n thì in ra d và kết thúc thuật toán
+ Bước 4: Nếu ai = 5 thì d←d+1;
+ Bước 5: i←i+1; quay lại bước 3
- Thuật toán sơ đồ khối:
Bản thân mình cũng học chuyên Tin nhưng lại không mạnh về Pascal, thôi thì xem những bạn khác trổ tài vậy :3
anh không mạnh về Pascal thì anh làm c++ cũng được mà
Chúc mừng các em đạt giải nha!
Thịnh lập danh sách trên google sheet or execel rồi gửi thầy Thọ (Ghi tên tài khoản, link tài khoản, tên giải, phần thưởng) nha em!
Các bạn ơi, từ giờ đến khi bắt đầu cuộc thi còn 3 ngày nữa. Mong các bạn sẽ chuẩn bị thật tốt cho cuộc thi. Mình biết rằng tuy thời gian khá gấp những mình vẫn hy vọng rằng các bạn sẽ chuẩn bị thật tốt để đạt được thành tích cao nhất trong cuộc thi này!
Xin chúc tất cả các bạn may mắn!
Ghê quá các pro tin=)))...Mình ủng hộ nhưng mình rút luiii nha=))
Program bai1;
uses crt;
var a: array[1..100] of integer;
n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
writeln('cac so chan la :');
for i:= 1 to n do
if a[i] mod 2 = 0 then write(a[i] :4);
writeln;
writeln('cac so le la :');
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i] :4);
writeln;
writeln('cac so chia het cho 3 la :');
for i:= 1 to n do
if a[i] mod 3 = 0 then write(a[i] :4 );
readln;
end.
Nếu bây giờ mình nói cái kì thi này unfair đến mức nào thì chắc ko thi nữa luôn nên thôi
Comment 1
Comment 2, anh Thịnh bắt comment 5 lần, ko hiểu vì sao