Viết chương trình (bằng Free Pascal) sao cho khi chạy chương trình sẽ xuất hiện hình dưới đây:
Tớ đang cần để thứ 5 nộp òi ^^ các cậu giúp tớ nhea ^~
K
Khách
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.
Những câu hỏi liên quan
16 tháng 5 2022
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Writeln ( ' *' );
Writeln ( ' * * ' );
Writeln ( ' * * * ' );
Writeln ( ' * * * * ' ) ;
bạn tự cách ra cho nó phù hợp với hình bên trên