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.
var a,b,c,d,e,f,m,l,i,dem,n:longint;
s:real; st:ansistring;
begin
write('Nhap so nguyen a: ');readln(a);
write('Nhap so nguyen b: ');readln(b);
if a>b then begin
if a mod 2014=0 then write('YES') else write('NO'); end;
if b>a then begin
if b mod 2014=0 then write('YES') else write('NO'); end;
readln;
end.
Bước 1: Nhập n là số cần in ra bảng nhân của số đó
Bước 2: i←1;
Bước 3: Nếu i>n thì kết thúc thuật toán
Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)
Bước 5: i←i+1, quay lại bước 3
Bước 1: Nhập n
Bước 2: i←1;
Bước 3: Nếu i>n thì kết thúc thuật toán
Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)
Bước 5: i←i+1, quay lại bước 3
Bài 1:
Program hotrotinhoc;
var i,n: integer;
t: longint;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
write(t);
readln
end.
Bài 2: Bạn tham khảo bài 2 ở link sau Câu hỏi của dang thi khanh ly - Tin học lớp 11 | Học trực tuyến
Bài 3:
program hotrotinhoc;
var d,i,n: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap n='); readln(n);
d:=0; t:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,':'); readln(a[i]);
if (a[i]>10) and (a[i]<20) then
begin
inc(d);
t:=t+a[i];
end;
end;
Writeln('Cac so lon hon 10 va nho hon 20 la ',d);
write('Tong cua chung la :',t);
readln
end.
Bài 1:
uses crt;
var n,i,t:longint;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
t:=0;
for i:=1 to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln('tong cac so la boi cua 3 hoac 5 la: ',t);
end
else writeln('vui long nhap so nguyen duong');
readln;
end.
Bài 2:
uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la do dai 3 canh trong mot tam giac')
else writeln('day khong la do dai 3 canh trong mot tam giac');
end
else writeln('vui long nhap ba so duong');
readln;
end.
Bài 3:
uses crt;
var n,i,t,dem:longint;
a:array[1..100]of longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------------------------}
dem:=0;
t:=0;
for i:=1 to n do
if (a[i]>10) and (a[i]<20) then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('cac so lon hon 10 va nho hon 20 la: ',dem);
writeln('tong cua chung la: ',t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d,t;
int main()
{
cin>>a>>b>>c>>d;
t=a+b+c+d;
cout<<t;
return 0;
}
Uses crt;
Var St,St1,x:string;
i,j,k,l:longint;
Begin
readln(St);
For i:=1 to length(St) do
If (St[i] in ['a'..'z']) then If not (St[i-1] in ['0'..'9']) then Insert('1',St,i);
For i:=1 to length(St) do
Begin
If St[i] in ['0'..'9'] then
For j:=i+1 to length(St) do
If St[j] in ['a'..'z'] then break;
x:=copy(St,i,j-i);
Val(x,k);
For l:=1 to k do
St1:=St1+St[j];
end;
Write(St1);
readln;
end.
Bài 1: Câu hỏi của Lê Thị Tâm - Tin học lớp 8 | Học trực tuyến
Bài 2:
Vòng 1: i=1
j=j+1 <=> j=0+1=1
k=k+j <=> k=3+1=4
Vòng 2: i=2
j=j+1 <=> j=1+1=2
k=k+j <=> k=4+2=6
Vòng 3: i=3
j=j+1 <=> j=2+1=3
k=k+j <=> k=6+3=9
Vòng 4: i=4
j=j+1 <=> j=3+1=4
k=k+j <=> k=9+4=13
Vòng 5: i=5
j=j+1 <=> j=4+1=5
k=k+j <=> k=13+5=18
Vậy có 5 lần lặp, i=5; j=5; k=18
câu 2:
program hinhtron;
uses crt;
var r,dt,cv:real;
const pi=3.14;
begin
clrscr;
writeln('Nhap ban kinh:');readln(r);
dt:=pi*r*r;
cv:=3*pi*r;
writeln('Chu vi hinh tron la:',cv:10:2);
writeln('Dien tich hinh tron la:',dt:10:2);
readln
end.