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.

3 tháng 4 2022

Var a, s:real;

Begin

Write('Nhap a = ');readln(a);

S:=3.14*a*a/2;

Write('Dien tich hinh tron la ',s:10:2);

Readln;

End.

6 tháng 1 2023

có mở lộn nhạc karaoke ko vậy 😂 Với lại coi chân cắm có đúng là 3.5mm ko , nhiều khi tai nghe điện thoại cắm vào laptop nó vậy đấy

 

6 tháng 1 2023

Hong có, cái này em sài bth đó giờ rồi, tự nhiên hôm nay nó bị như vậy à huhu

6 tháng 9 2017

Soạn "067" gửi 8009 đi em! 1000đ thôi nha!banhqua

6 tháng 9 2017

Là sao chị hum

2 tháng 10 2021

mạng yếu :)))))

D
datcoder
CTVVIP
26 tháng 10 2023

Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
    fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
        assign(f,fi);
        reset(f);
        readln(f,n,m);
        for i:=1 to n do read(f,a[i]);
        close(f);
end;
Procedure out;
begin
        assign(f,fo);
        rewrite(f);
        d:=0;
        for i:=1 to n-1 do
        Begin
        If a[i]=m then d:=d+1;
        for j:=i+1 to n do
                 begin
                         t:=0;
                         for k:=i to j do t:=t+a[k];
                         if t=m then d:=d+1;
                 end;
        End;
        if a[n]=m then d:=d+1; write(f,d);
        close(f);
end;
Begin
ip;
out;
End.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

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

t1=0;

t2=1;

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

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

15 tháng 11 2021

B