[Tin 8] Viết chương trình bằng Pascal

[one_day]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1. Nhập vào các số nguyên dương, thông báo số nào là số chẵn, số nào là số lẻ?
2. Viết chương trình nhập vào một chuỗi ký tự. Sau đó in chuỗi ra màn hình với các ký tự thường sang chữ hoa.

 

[syphuongcuong3]

1

uses crt;
var A: array[word] of integer;
      i,n: integer;
begin
clrscr;
writeln('Nhap gioi han day'); readln(n)
writeln('Nhap tat ca phan tu cua day'); for i:=1 to n do readln(A[i]);
write('Cac so chan:');
for i:=1 to n do 
if A[i] mod 2= 0 then write(A[i]);
write('Cac so le:');
for i:=1 to n do 
if A[i] mod 2!= then write(A[i]);
realn
end.

2

USES crt;
VAR st: STRING;
FUNCTION ToUpper(s : STRING) : STRING;
VAR i : BYTE;
BEGIN
FOR i:=1 TO Length(s) DO
s[i] := Upcase(s[i]);
ToUpper := s;
END;      
BEGIN
    clrscr;        
    write('Hay nhap xau...')
    readln(st);
    write('Ket qua',ToUpper(st));
    readln;
END.