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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
HM
1
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.
HM
1
D
datcoder
CTVVIP
26 tháng 10 2023
Program HOC24;
var st,st1,st2: string;
i: byte;
f: text;
const fi='SPLIT.INP ' ;
fo = 'SPLIT.OUT' ;
Procedure ip;
begin
assign(f,fi);
reset(f);a
read(f,st);
close(f);
end;
Procedure out;
begin
assign(f,fo);
rewrite(f);
st1:=''; st2:='';
for i:=1 to length(st) do
begin
if st[i] in ['A'..'z'] then st1:=st1+st[i];
if st[i] in ['0'..'9'] then st2:=st2+st[i];
end;
writeln(f,st1);
write(f,st2);
close(f);
end;
Begin
ip;
out;
End.
KV
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.
S
13 tháng 12 2021
Khi thầy cô sử dụng bài giảng điện tử để giảng nội dung bài học, giờ học một số môn học có sử dụng bài giảng điện tử thì giờ học lại sinh động và dễ hiểu hơn.
Ví dụ như môn Lịch sử: khi sử dụng phần mềm trình chiếu ngoài những nội dung được chiếu lên giúp học sinh thích thú còn có những đoạn phim tài liệu được chiếu, những bản đồ trận đánh sinh động,…càng làm học sinh có hứng thú trong học tập.
S
3
25 tháng 8 2021
#include <bits/stdc++.h>
using namespace std;
int main()
{
string S;
int x,sum=0;
cin >> S;
cin >> x;
for (int i=0;i<=S.length()-1;i++)
{
sum+=((int(S[i])-97)+x)%26;
}
cout << sum;
}
