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.
#include <bits/stdc++.h>
using namespace std;.
int n,i;
string a[1000];;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<endl;
return 0;
}
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
writeln(i,'. XIN CHAO');
readln;
end.
Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
var tam,a,b,i:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
if a < b then
begin
tam:=a;
a:=b;
b:=tam;
end;
for i:=a to b do
if sqrt(i) = trunc(sqrt(i)) then write(i:10);
readln;
End.
uses crt;
var ten:string;
begin
clrscr;
write('ban ten gi:'); readln(ten);
writeln('xin chao ban ',ten,' den voi Pascal');
readln;
end.
giúp em với ạ
\