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.
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.
var sn:integer;
begin
write('nhap nam sinh:');readln(sn);
write(2018-sn,'tuoi');
readln;end.
uses crt;
var n: integer;
begin
clrscr;
repeat
writeln('Nhap dan so nam 2000: '); read(n);
until n>=1000000;
for i:=1 to 11 do
begin
n:=n+n*7/100 - n*3/100;
writeln('Dan so cuoi nam 200',i, 'la: ', n);
end;
readln
end.
Cảm ơn câu trả lời của bạn nha ! Nhưng mình muốn hỏi là sau khi chạy chương trình nó có in ra bảng ko ?
a) Xác định bài toán
-input: năm sinh của học sinh
-output: số tuổi của học sinh đó và kiểm tra xem học sinh đó đủ tuổi vị thành niên chưa
b) Mô tả thuật toán
-Bước 1: nhập năm sinh
-Bước 2: xuất ('ban nay da ',2019-nam,' tuoi');
-Bước 3: nếu (2019-nam)>=16 thì xuất ('ban da du tuoi bi thanh nien')
Ngược lại thì xuất ('ban la tre em');
-Bước 4: Kết thúc
c) Viết chương trình
uses crt;
var nam:integer;
begin
clrscr;
write('nhap nam sinh cua hoc sinh do: '); readln(nam);
writeln('ban nay nam nay ',2019-nam,' tuoi');
if 2019-nam>=16 then writeln('ban da du tuoi bi thanh nien')
else writeln('ban la tre em');
readln;
end.
a) Xác định bài toán
-input: năm sinh của học sinh
-output: số tuổi của học sinh đó và kiểm tra xem học sinh đó đủ tuổi vị thành niên chưa
b) Mô tả thuật toán
-Bước 1: nhập năm sinh
-Bước 2: xuất ('ban nay da ',2019-nam,' tuoi');
-Bước 3: nếu (2019-nam)>=16 thì xuất ('ban da du tuoi bi thanh nien')
Ngược lại thì xuất ('ban la tre em');
-Bước 4: Kết thúc
c) Viết chương trình
uses crt;
var nam:integer;
begin
clrscr;
write('nhap nam sinh cua hoc sinh do: '); readln(nam);
writeln('ban nay nam nay ',2019-nam,' tuoi');
if 2019-nam>=16 then writeln('ban da du tuoi bi thanh nien')
else writeln('ban la tre em');
readln;
end.
B