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:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
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');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
câu 1:
a)for i:=17 to 109 do writeln('a');
b)for i:=1 to 10 do x:=x+1;
c)s:=7;
while s<=15 do
begin
n:=n+s;
s:=s+1;
end;
d)var a:array[1..100] of real;
câu 2:
program tihn_tong;
uses crt;
var s,i:integer;
begin
clrscr;
i:=1;s:=1000;
while i<=21 do
begin
s:=s+1000+i;
i:=i+1;
end;
writeln(s);
readln;
end.
câu 3:
cú pháp của lệnh for...to...do:
for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>
cú pháp của lệnh while...do:
while<điều kiện>do<công việc>
câu 4:
cú pháp khai báo biến mang trong chương trình pascal:
khai báo trực tiếp:
var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>
khai báo gián tiếp:
type <biến mang> =array[chỉ số]of <kiểu dữ liệu>
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
program ct_dautien;
uses crt;
var x:integer;
begin
writeln('moi nhap a,b');readln(a,b);
if a>b then write(a) else write (b);
readln
end.
Bài 1 :
Uses crt;
Var x,y:integer;
Begin
clrscr;
Readln(x,y);
Write('Tong cua x,y la ',x+y);
Readln
End.
Bài 2 :
Uses CRT;
var x,y,z:integer; tbc:real;
begin
clrscr;
readln(x,y,z);
tbc:=(a+b+c)/3;
Write('Trung binh cong x,y,z la ',tbc:4:2);
Readln
End.
#include <bits/stdc++.h>
using namespace std;
long long n,x,t;
int main()
{
cin>>n;
t=0;
while (n>0)
{
x=n%10;
t=t+x;
n/=10;
}
cout<<t;
return 0;
}
Var t,n:integer;
begin
write('nhap n = ');readln(n);
while n div 10 <> 0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
write('Tong cac chu so cua ',n,' la ',t);
readln;
end.
Câu 1:
Đoạn lệnh trên thực hiện in 5 lần chữ A ( thiếu dấu ; thì đoạn lệnh trên ko chạy được . đề bị thiếu? )
Câu 2 :
Var :(sau var là khai báo biến ko phải dấu :) i : real (thiếu dấu ; )
Begin : (sau begin ko phải là dấu :)
For i := 1 to 100 do
End (sau end là dấu .)
Câu 3:
var A,n.i : integer ;
begin
write('nhap gia tri n:'); readln(n);
for i:=1 to n do A:=A+i;
write('Tong la',A);
readln
end.