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.

23 tháng 4 2022

Bước 1. Nhập N (bạn nhập N = 50)

Bước 2. i←0i←0 , S←0S←0

Bước 3. i←i+1i←i+1

Bước 4. 4.1 Nếu i>Ni>N thì kết thúc thuật toán và thông báo kết quả.

4.2 S←S+iS←S+i rồi quay lại bước 3

23 tháng 4 2022

bài mảng đúng không

3 tháng 5 2023

program TinhTong;
uses crt;
var
  N, i, j, tich: integer;
  S: real;
begin
  clrscr;
  write('Nhap so nguyen N: ');
  readln(N);
  
  S := 0;
  tich := 1;
  
  for i := 1 to N do
  begin
    tich := tich * i;
    S := S + tich;
  end;
  
  writeln('Tong S = ', S:0:2);
  readln;
end.

 

3 tháng 5 2023

tôi chạy nó ra thế này bạn ơi

 

8 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.

17 tháng 3 2023

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;

write('Tong la: ',t);

readln

end.

5 tháng 6 2021

uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
  clrscr;
  write('nhap m:');readln(m);
  for i:=1 to m do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']=');readln(a[i,j]);
  end;
  clrscr;
  writeln('ma tran da nhap la:');
  for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:5);writeln;
  end;
  i:=1;j:=1;
  while i<=m do
  begin
    t:=t+a[i,j];
    inc(i);inc(j);
  end;
  writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
  readln;
end.

 

15 tháng 3 2021

Program HOC24;

var t: longint;

n,i: integer;

begin

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

t:=1;

for i:=1 to n do t:=t*i;

write(n,'! =',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

double a,cv,dt;

int main()

{

cin>>a;

cv=a*4;

dt=a*a;

cout<<fixed<<setprecision(2)<<cv<<endl;

cout<<fixed<<setprecision(2)<<dt;

return 0;

}

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

19 tháng 12 2022

Có tính chu vi tg từ a vs h à?
Var a,h:real; 
begin
Writeln('nhap do dai duong cao: '); Readln(h);
Writeln('nhap do dai canh day: '); readln(a);
Writeln('dien tich tam giac: S= ', (a*h)/2);
end.

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.