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.
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Hãy viết chương trình Pascal thực hiện các công việc sau (đặt tên program tên mình)
program SoChanDenN;
var
n, i: Integer;
begin
Write('Nhap n: ');
Readln(n);
Write('Cac so chan tu 1 den ', n, ' la: ');
for i := 1 to n do
begin
if i mod 2 = 0 then
Write(i, ' ');
end;
end.
viết công thức pascal nhập số n từ bàn phím . xuất ra màn hình các số chia hết cho 2 và 5 từ 1 đến n
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if (i mod 2=0) and (i mod 5=0) then write(i:4);
readln;
end.
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
Program Sara_Trang;
uses crt;
Begin
Writeln('Turbo Pascal');
Readln
End.
1: uses crt;
begin
clrscr;
writeln('turbo pascal');
readln;
end.
2: uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('turbo pascal');
readln;
end.
3:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('day la dong thu ',i,' turbo pascal');
readln;
end.
4:
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
writeln('turbo pacal');
readln;
end.
5:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i);
readln;
end.
6:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i:4);
readln;
end.
7:
uses crt;
var d,i:integer;
begin
clrscr;
d:=0;
for i:=1 to 100 do
begin
write(i:4);
inc(d);
if d mod 10=0 then writeln;
end;
readln;
end.
8:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so le trong khoang tu 1 toi 100 la: ');
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
9:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=0 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
10:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
11:
uses crt;
var m,n,i:integer;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if m<n then
begin
writeln('cac so tu nhien trong khoang tu ',m,' toi ',n,' la: ');
for i:=m to n do
write(i:4);
end
else exit;
readln;
end.
12:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 20=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
(dừng xem theo từng trang là sao hả bạn)
13:
uses crt;
var i,ch:longint;
begin
clrscr;
writeln('cac so chia het cho 7 nho hon 1000000 la:');
for i:=1 to 999999 do
if i mod 7=0 then
begin
delay(1000);
write(i:6);
end;
readln;
end.
14: bài này bạn phải chạy trên free pascal nhé
uses crt;
var i:int64;
begin
clrscr;
writeln('cac so khong chia het cho 18 va nho hon 1 ti la: ');
for i:=1 to 999999999 do
if i mod 18<>0 then
begin
delay(1000);
write(i:8);
end;
readln;
end.
15:
uses crt;
var i:longint;
begin
clrscr;
writeln('so chia cho 13 du 2 trong khoang tu 456 toi 456789 la: ');
for i:=456 to 456789 do
if i mod 13=2 then
begin
delay(2000);
write(i:6);
end;
readln;
end.
16:
uses crt;
var i:longint;
begin
clrscr;
writeln('cac so nho hon 1 trieu chia het cho 24 va chia cho 17 du 5 la: ');
for i:=1 to 999999 do
if (i mod 24=0) and (i mod 17=5) then
begin
delay(1000);
write(i:6);
end;
readln;
end.
17:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so nho hon 1000 thoan man dieu kien: Chia 5 dư 4, chia 4 dư 3, chia 3 dư 2 và chia hết cho 17 la: ');
for i:=1 to 999 do
if (i mod 5=4) and (i mod 4=3) and (i mod 3=2) and (i mod 17=0) then begin
delay(1000);
write(i:4);
end;
readln;
end.
18:
a) In ra tất cả các số tự nhiên từ 0 đến 1000 theo chiều giảm dần, mỗi hàng 15 số.
uses crt;
var i,d:integer;
begin
clrscr;
d:=0;
for i:=1000 downto 0 do
begin
write(i:5);
inc(d);
if d mod 15=0 then
begin
writeln;
delay(500);
end;
readln;
end.
b) In ra bảng nhân 8
uses crt;
var i:integer;
begin
clrscr;
writeln('bang nhan 8 la: ');
for i:=1 to 9 do
writeln(8*i);
readln;
end.
c) In ra bảng cửu chương từ 1 đến 10
Uses crt;
Var
a:array[1..10,1..10] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 10 do
For j := 1 to 10 do
A[i,j] := i*j ;
For i := 1 to 10 do
Begin
For j := 1 to 10 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
5.
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
8.
Program baitap8 ;
uses crt ;
var i : integer ;
begin
CLRSCR ;
Write ( ' cac so le tu 1 den 100 la : ' );
For i : 1 to 100 do
if i mod 1 < > 0 then write ( i:5 ) ;
Readln
End .
9.
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=10000) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
1.
2.
var i: integer;
begin
for i:= 1 to 20 do writeln ('Turbo Pascal');
readln;
end.
4.
var n: integer;
begin
for n:= 1 to n do writeln ('Turbo Pascal');
readln;
end.
6.
var i: integer;
begin
for i:= 1 to 100 do writeln (i);
readln;
end.
Jun DeepTryĐỖ CHÍ DŨNG Bài này không yêu cầu tính tổng em nhé.
Giúp mình vài câu kia nữa
ok chờ tí
Làm thêm nhìu bài nữa cho mình đi
Có fb ko kb chỉ mình
ko biết lập gmail
Bạn có gì liên lạc để chỉ mình
Mình còn nhiều lắm cần nộp gấp cho Thầy
nhắn trong cộng đồng cũng đc
làm all bài mình đc ko
*4.
var i,n: integer;
begin
readln(n);
for i:=1 to n do writeln('Turbo Pascal');
readln
end.
// Lỗi lệnh
* For i:=1 to 100 do
// Lỗi thuật toán
if i mod 2<>0 then write(i,' ');
7.
9,10 tương tự.
Đr cô
Bài tập về vòng lặp rất đơn giản, nếu em hiểu được một bài chắc chắn sẽ làm được nhưng bài khác.
5.
var i: integer;
begin
for i:= 1 to 100 do write (i);
readln;
end.
Câu 4.1
var i, n: integer;
begin
write ('Nhap n='); readln(n);<br />for i:= 1 to n do writeln (i);<br />readln;<br />end.<br /><br /><strong>Câu 5. </strong><br />var i: integer;<br />begin<br />for i:= 1 to 100 do write (i);<br />readln;<br />end.<br /><br /><strong>Câu 6</strong>. <br />var i: integer;<br />begin<br />for i:= 1 to 100 do writeln (i);<br />readln;<br />end.<br /><br /><strong>Câu 8</strong>. <br />var i: integer;<br />Write ('Cac so le tu 1 den 100 la:')
for i:=1 to 100 do if i mod 2=1 then writeln(i);
readln;
end.
gi z
Câu 1.
uses crt;
begin
write ('Turbo Pascal');
readln;
end.
Câu 2.
var i: integer;
begin
for i:= 1 to 20 do writeln ('Turbo Pascal');
readln;
end.
Câu 4.
var n: integer;
begin
for n:= 1 to n do writeln ('Turbo Pascal');
readln;
end.
Câu 4.1
var i, n: integer;
begin
write ('Nhap n='); readln(n);
for i:= 1 to n do writeln (i);
readln;
end.
Câu 5.
var i: integer;
begin
for i:= 1 to 100 do write (i);
readln;
end.
Câu 6.
var i: integer;
begin
for i:= 1 to 100 do writeln (i);
readln;
end.
Câu 8.
var i: integer;
Write ('Cac so le tu 1 den 100 la:') for i:=1 to 100 do if i mod 2=1 then writeln(i);
readln;
end.