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.

14 tháng 3 2023

program ChenLe;

var

     n, i, chan, le: integer;

begin

     chan := 0;

     le := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     for i := 1 to n do

     begin

          if (i mod 2 = 0) then

          begin

               writeln(i, ' la so chan');

               chan := chan + 1;

          end

          else

          begin

               writeln(i, ' la so le');

               le := le + 1;

          end;

     end;

     writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');

     readln;

end.

19 tháng 3 2023

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.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

15 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 if i mod 2=0 then s:=s+i;

write('S = ',s);

readln

end.

22 tháng 3 2023

pascal

program sum_of_evens;

var
  i, n, sum: integer;

begin
  write('Enter a positive integer: ');
  readln(n);
  
  sum := 0;
  
  for i := 2 to n step 2 do
  begin
    sum := sum + i;
  end;
  
  writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.

26 tháng 12 2020

a) Tổng của 50 số tự nhiên đầu tiên

Xác định bài toán: 

-Input: 50 số tự nhiên đầu tiên

-Output: Tổng của 50 số đó

Mô tả thuật toán:

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=n thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

b) Kiểm tra a là số chẵn hay số lẻ

Xác định bài toán

-Input: Số a

-Output: Kiểm tra xem a là số chẵn hay số lẻ

Mô tả thuật toán

-Bước 1: Nhập a

-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn

không thì a là số lẻ

-Bước 3: Kết thúc

21 tháng 11 2017

program bai1;

uses crt;

var a,b,c,s: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

s:=a+b+c;

writeln('tong ba so a,b,c =',s:4:2);

readln;

end.

21 tháng 11 2017

program bai1;

uses crt;

var n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n mod 2 = 0 then

writeln('la so chan ') else

writeln('la so le ');

readln;

end.

uses crt;

var n,i:integer;

gt:real;

begin

clrscr;

repeat

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

until n>=0;

gt:=1;

for i:=1 to n do 

  gt:=gt*i;

writeln(n,'!=',gt:0:0);

readln;

end.

10 tháng 5 2022

THAM KHẢO:

undefined