Viết chương trình để người dùng nhập các số khác 0 rồi tính và in ra màn hình tổng các nghịch đảo của các số này. Chương trình kết thúc khi người dùng nhập số 0 đầu tiên.
Help me!!!
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.
Những câu hỏi liên quan
11 tháng 3 2022
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
23 tháng 2 2023
uses crt;
var x,t,i:integer;
begin
clrscr;
t:=0;
repeat
readln(x);
t:=t+x;
until x=0;
write(t);
readln;
end.
7 tháng 3 2021
uses crt;
var a:real;
begin
clrscr;
write('Nhap a='); readln(a);
if a=0 then writeln('Khong tim duoc so nghich dao')
else writeln('So nghich dao la: ',1/a:4:2);
readln;
end.
22 tháng 8 2021
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
12 tháng 10 2021
Mình dùng C++ nên div = /; mod = % nha bn!
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}
Chúc bn học tốt!
program bai1;
var a:array[1..100] of longint;
s:real,i,n:longint;
begin
repeat
write('N= ');
readln(n);
until n>0;
for i:=1to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
s:=0;
for i:=1o n do
s:=s+1/i;
write('S= ',s);
readln
end.