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.

26 tháng 4 2023

program Tong;
var
  n: integer;
  i: integer;
  sum: real;
begin
  write('Nhap so nguyen duong n (chia het cho 5): ');
  readln(n);
 
  sum := 0;
  for i := 1 to n do
  begin
    if i mod 5 = 1 then
      sum := sum + 1/i;
  end;
  
  writeln('Tong A la: ', sum);
  readln;
end.

 

4 tháng 5 2023

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

 

a=10 =>b=1010

a=120 =>b=1111000

a=1023 =>b=1111111111

a=35000 =>b=1000100010111000

2 tháng 11 2019

var a,b,x,s: real;

begin

write('a='); readln(a);

write('b='); readln(b);

write('x='); readln(x);

s:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));

write('dien tich tam giac AMN la:',s);

readln;

end.

2 tháng 11 2019

var a,b,x,dientich: real;

begin

write('a='); readln(a);

write('b='); readln(b);

write('x='); readln(x);

dientich:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));

write('dien tich tam giac AMN la:',dientich :2:10);

readln;

end.

7 tháng 4 2020

a)

Input : Số nguyên K và dãy A gồm N số nguyên

Output: Tổng các số dương của dãy A chia hết cho K

b) Thuật toán sơ đồ khối

Nhập K,N Nhập dãy a1,a2,...,aN T←0; i>N? i←1; Đúng Đưa ra giá trị T; Kết thúc. Sai Đúng T←T+Ai; i←i+1; Sai Ai chia hết cho K? Ai>0? Đúng Sai

c) Mô phỏng thuật toán:

Danh sách (Ai) 13 10 15 21 6 27 8 30 12
i 1 2 3 4 5 6 7 8 9
T 13 23 38 59 65 92 100 130 142
18 tháng 12 2022

Cau 1:

var i,dem:integer;

function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
    bo:=true;
    for i:=2 to n-1 do 
    if n mod i=0 then bo:=false;
    if n>1 then ngto:=bo else ngto:=false;
end;
begin
    for i:=2 to 100 do 
    if ngto(i) then dem:=dem+i;
    write(dem);
readln;
end.

Cau 2:

var i,dem,n:longint;

begin
    read(n);
    dem:=1;
    for i:=1 to n do 
    dem:=dem*i;
    write(dem);
readln;
end.

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2==0) t=t+i;

cout<<t;

return 0;

}

14 tháng 3 2023

n = int(input())
if n % 2 != 0:
    n -= 1
so_so_hang = (n - 2) // 2 + 1
print((n + 2)*so_so_hang // 2)