Em hãy viết đoạn chương trình giải hai bài toán sau:
b1; tính tổng S= 3+6+9+12+.....+372
b2 : cho số nguyên dương N(0<N<100000). Hãy tính tổng các chữ số của N
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
27 tháng 11 2021
#include<iostream>
using namespace std;
int main() {
int x, y;
cout << "x : "; cin >> x;
cout << "y : "; cin >> y;
cout << "x + y = " << x + y;
cout << "x - y = " << x - y;
cout << "x * y = " << x * y;
cout << "x / y = " << x / y;
return 0;
}
16 tháng 11 2021
Test 1:
a=2; b=4
=>-2
Test 2:
a=0; b=0;
=>Vô số nghiệm
4 tháng 3 2022
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);
writeln(dem);
readln;
end.
13 tháng 9 2023
Trong chương trình này, ta sử dụng các biến quangduong và thoigian để lưu trữ giá trị quãng đường và thời gian. Bằng cách sử dụng khối ask and wait và set, người dùng sẽ được hỏi để nhập giá trị quãng đường và thời gian. Sau đó, chương trình sử dụng khối set và toán tử / để tính toán giá trị vận tốc và lưu vào biến speed. Cuối cùng, chương trình sử dụng khối say để hiển thị giá trị vận tốc lên màn hình.
Để chạy chương trình, ta có thể nhấn vào biểu tượng mũi tên xanh để bắt đầu chương trình. Sau đó, nhập giá trị của quãng đường và thời gian theo yêu cầu của chương trình và chờ đợi cho kết quả. Khi chương trình tính toán xong, giá trị vận tốc sẽ được hiển thị lên màn hình.
ML
13 tháng 3 2021
Bài 1:
Thuật toán:
B1: Nhập a,b,c
B2: Tính \(\Delta\) = b2-4ac;
B3: Kiểm tra nếu \(\Delta\) >0 phương trình có 2 nghiệm phân biệt
\(x_1=\dfrac{-b+\sqrt{\Delta}\text{ }}{2a}\)
\(x_2=\dfrac{-b-\sqrt{\Delta}}{2a}\)
B4: Kiểm tra nếu \(\Delta\)<0 thì phương trình vô nghiệm
B5: Kiểm tra nếu \(\Delta\)=0 phương trình có 2 nghiệm kép \(x_1=x_2=-\dfrac{b}{2a}\)
Viết chương trình:
Program HOC24;
var a,b,c: integer;
x1,x2: real;
denta: longint;
begin
write('Nhap a; b; c: '); readln(a,b,c);
denta:=b*b-4*a*c;
if denta>0 then
begin
write('x1= ',(-b+sqrt(denta))/(2*a):1:2);
write('x2= ',(-b-sqrt(denta))/(2*a):1:2);
end;
if denta<0 then write('Phuong trinh vo nghiem');
if denta=0 then write('x= ',-b/2*a:1:2);
readln
end.
ML
13 tháng 3 2021
Bài 2:
Thuật toán:
B1: Nhập a,b
B2: Kiểm tra nếu a=0 và b=0 thì phương trình có vô số nghiệm
B3: Kiểm tra nếu a=0 thì phương trình vô nghiệm
B4: Kiểm tra nếu a khác 0 thì có nghiệm x=-b/a;
Viết chương trình:
Program HOC24;
var a,b: integer;
x: real;
begin
write('Nhap a; b: '); readln(a,b);
if a=0 and b=0 then write('Phuong trinh co vo so nghiem');
if a=0 then write('Phuong trinh vo nghiem');
if a<>0 then write('x=',-b/a:1:2);
readln
end.
PT
1
Bài 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=3 to 372 do
if i mod 3=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var n,i,t,x,y,d:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.