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.
Program HOC24;
var i: byte;
s: string;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='1' then write('mot ');
if s[i]='2' then write('hai ');
if s[i]='3' then write('ba ');
if s[i]='4' then write('bon ');
if s[i]='5' then write('nam ');
if s[i]='6' then write('sau ');
if s[i]='7' then write('bay ');
if s[i]='8' then write('tam ');
if s[i]='9' then write('chin ');
if s[i]='0' then write('khong ');
readln;
end.
Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
Program solonhon;
var a,b: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a> b then write(a);
if a<b then write(b);
if a=b then write('2 so bang nhau');
readln
end.
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.
mk mới làm tổng thui nghen
1.Chương trình bảng tính là phần mềm đuọc thiết kế để giúp ghi lại và trình bày thông tin dưới dạng bảng,thực hiẹn các tính cũng như xây dựng các biểu đồ biểu diển 1 cách trực quan các số liệu có trong bảng!
10.Các thành phần chính:ô,hàng,cột,khối,...
19.Để sao chép nội dung ô tính,ta thực hiện theo 4 bước:
1:Chọn ô cần sao chép đi
2:nhấn nút copy trên thanh công cụ
3:Chọn ô cần sao chép tới
4:nhấn nút paste trên thanh công cụ
SORRY,MÌNH CHỈ BIẾT BAO NHIÊU ĐÓ,XIN LỖI BẠN NHA!!!
uses crt;
var a:array[1..350]of integer;
n,i,t,max,t1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------cau-a----------------------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong cac phan tu vua nhap la: ',t);
{------------------------------cau-b----------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('so lon nhat cua day la: ',max);
writeln('vi tri cua no lan luot la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
{------------------------------cau-c----------------------------}
writeln;
writeln('cac so chia het cho 3 co trong day la: ');
t1:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
{------------------------------cau-d---------------------------}
writeln;
writeln('tong cac so chia het cho 3 co trong day la: ',t1);
readln;
end.