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.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
Bài 1:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=0 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan nho hon hoac bang ',n,' la: ',t);
readln;
end.
Bài 2:
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n=');readln(n);
until n>0;
dem:=0;
for i:=0 to n do
if i mod 3=0 then inc(dem);
writeln('So so chia het cho 3 nho hon hoac bang ',n,' la: ',dem);
readln;
end.
Bài 3:
uses crt;
var a:real;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
a:=0;
for i:=1 to n do
a:=a+1/(i*(2*i+1));
writeln('Ket qua la: ',a:4:2);
readln;
end.
Bài 4:
uses crt;
var n,i,kt:integer;
begin
clrscr;
Repeat
write('Nhap n='); readln(n);
Until n>1;
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
uses crt;
var b:array[1..100] of integer;
i,n,d:integer;
begin
clrscr;
repeat
writeln('nhap n=');readln(n);
until n>0;
for i:=1 to n do
begin writeln('b[',i,']','=');readln(b[i]);end;
writeln('so cac so le la');
for i:=1 to n do
if b[i] mod 2<>0 then d:=d+1;
writeln(d);readln;end.
uses crt;
var n,i:longint; s:real;
begin
clrscr;
s:=0;
writeln('nhap vao n=');readln(n);
writeln('tong cua A la');
for i:=1 to n do
s:=s + 1/(i*(i+2));
writeln(s:4:3);readln;end.
program xmun;
uses crt;
var i,x,n,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^n');
write('X=');readln(x);
write('n=');readln(n);
kq:=1;
for i:=1 to n do
kq:=kq*x;
writeln(x,'^',n,'=',kq);
readln;
end.
uses crt;
var n,x,i:integer;
lt:longint;
begin
clrscr;
write('n='); readln(n);
write('x='); readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*n;
writeln(x,'^',n,'=',lt);
readln;
end.
Bạn ơi câu b điều kiện bạn cho là \(0\le n\le10\) sao lại thêm 1 điều kiện nữa là x>0
Gọi tuổi cha là x và tuổi con là y.
Viết chương trình
Program vct;
Uses crt;
var
x,y,tam,namcachnhau:integer;
begin
clrscr;
writeln('moi nhap tuoi cha ');
readln(x);
writeln('moi nhap tuoi con ');
readln(y);
while ((x-y=25) and (x=2y)) do
begin
writeln('moi nhap lai tuoi cha');
readln(x);
writeln('moi nhap lai tuoi con');
readln(y);
end;
for i:=y+1 to 200 do
begin
inc(x);
if (x=2y) then
begin
tam:=i;
namcachnhau:=i-y;
break;
end;
end;
write(namcachnhau);
readln;
end.
Bài 1:
uses crt;
var n,i,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chia het cho 5 trong khoang tu 1 toi ',n,' la: ');
dem:=0;
for i:=1 to n do
if i mod 5=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('So cac so chia het cho 5 trong khoang tu 1 toi ',n,' la: ',dem);
readln;
end.
Bài 2:
uses crt;
var i:byte;
s:real;
begin
clrscr;
s:=1;
for i:=15 to 35 do
s:=s*i;
writeln('Tich cac so tu 15 toi 35 la: ',s:4:2);
readln;
end.
Bài 3:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.
b
B