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.
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
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.
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 |
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.
#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;
}
n = int(input())
if n % 2 != 0:
n -= 1
so_so_hang = (n - 2) // 2 + 1
print((n + 2)*so_so_hang // 2)
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.