K
Khách

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.

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60      Nhập chương trình :       uses crt;       var N,I:integer;       begin                clrscr;                 write (Nhap so N='); readln(N);                writeln;                writeln('Bang nhan',N);                writeln;                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);               readlnend                                                            Câu hỏi ôn tập: a. Sau khi...
Đọc tiếp

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO

Bài 1: SGK 60

      Nhập chương trình :

       uses crt;

       var N,I:integer;

       begin

                clrscr; 

                write (Nhap so N='); readln(N);

                writeln;

                writeln('Bang nhan',N);

                writeln;

                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);

               readln

end

                                                            Câu hỏi ôn tập: 

a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .

b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?

c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1
23 tháng 2 2021

b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100

c)

Nhân từ 10 đến 100

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

6 tháng 3 2023

Uses crt;

var s,n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod 2<>0) then s:=s+i;

writeln(s);

readln;

end.

6 tháng 3 2023

 bạn có thể giải thik cho mik vì sao lại là for i:=1 to n do if(n mod 2<>0) then s:=s+i đc ko

cảm ơn bạn nhìu

Bài 2: 

a: Input: 50 số từ 1 đến 50

Output: Tổng các số nguyên tố

c: Viết chương trình:

uses crt;

var i,j,t,kt:integer;

begin

clrscr;

t:=0;

for i:=2 to 50 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln(t);

readln;

end.

24 tháng 3 2023

Program HOC24;

var i,n: integer;

S:longint;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write('Tong la ',s);

readln

end.

6 tháng 11

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.

 

 

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0,i,dem=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%2==0)

{

t=t+i;

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

uses crt;

var i:integer;

a:array[1..20]of string;

begin

clrscr;

for i:=1 to 20 do readln(a[i]);

for i:=1 to 20 do 

  writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);

readln;

end.

28 tháng 3 2022

Program Hoc24;

var i: byte;

begin

for i:=1 to 20 do

writeln('Chao ban thu ',i);

readln

end.

có đúng ko vậy cô dam mai em thi r ạ

 

16 tháng 4 2023

Program HOC24;

var p: longint;

i,x: integer;

Begin

write('Nhap X: '); readln(X);

p:=1;

for i:=3 to x do if i mod 2=1 then p:=p*i;

write('P = ',p);

readln

end.