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.
5 bước ra lệnh cho robot nhặt rác:
1. Tiến hai bước
2.Quay trái, tiến một bước
3.Nhặt rác
4.Quay phải, tiến ba bước
5.Quay trái, tiến hai bước
6. Bỏ rác vào thùng
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
à tiện thể thì hàm inc(n) có nghĩa là tăng biến n lên 1 đơn vị
còn nếu là inc(n,x) thì tăng biến n lên x đơn vị nha
uses crt;
var n,s:longint;
begin
clrscr;
n:=1; s:=1;
while s<=10000 do
begin
inc(n);
s:=s*n;
end;
writeln(n);
readln;
end.
uses crt;
begin
clrscr;
writeln('rat vui khi duoc lam quen voi cac ban');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8');
writeln('chuong trinh Turbo Pascal rat la hay');
readln;
end.
Chào bạn!
Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.
Còn nếu là thực hành thì bạn tự thực hành nhé.
Chúc bạn học tốt.
a)
Program bt;
Var a,b,c,tb:real;
Begin
Writeln('nhap a:=');
Readln(a);
Writeln('nhap b:=');
Readln(b);
Writeln('nhap c:=');
Readln(c);
tb:=a+b+c/3;
Writeln('diem trung binh cua ba mon:=',tb);
Readln;
End.
b)
Program bt;
Var tb:real;
Begin
Writeln('nhap tb:=');
Readln(tb);
if tb >=8,0 then writeln('hoc luc gioi') else writeln('hoc luc kha');
Readln;
End.
begin
write ('TRUONG THCS ...');
write ('CHAO CAC BAN HOC SINH LOP 8');
readln ;
end.
Bạn tham khảo trong bài giảng của hoc24 nhé : Bài 1. Máy tính và chương trình trong máy tính | Học trực tuyến
5 bước ra lệnh cho robot nhặt rác:
1. Tiến hai bước
2.Quay trái, tiến một bước
3.Nhặt rác
4.Quay phải, tiến ba bước
5.Quay trái, tiến hai bước
6. Bỏ rác vào thùng