Tham khảo:

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.

Tham khảo:

giúp mình với mn ơi

     a) Các lệnh trong ngôn ngữ máy được viết dưới dạng ......dãy bít..................

     b) .....Ngôn ngữ lập trình......................... được sử dụng để viết chương trình.

     c) Chương trình thường được viết bằng ngôn ngữ lập trình, sau đó được ......chương trình dịch................ chuyển đổi sang ngôn ngữ máy.

     d) Dãy các lệnh để máy tình thực hiện một ngôn ngữ nào đó là ........ngôn ngữ máy.......................

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.

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.

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

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

t:=0;

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

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

A. Chương trình dịch 

A

Câu a nha

#include <bits/stdc++.h>

using namespace std;

string n;

int d,i,t,x;

int main()

{

freopen("tong.inp","r",stdin);

freopen("tong.out","w",stdout);

cin>>st;

d=st.length();

t=0;

for (i=0; i<=d; i++)

{

x=int(st[i])-48;

t=t+x;

}

cout<<t;

return 0;

}