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.
Program hotrotinhoc;
var s: longint;
i,n: integer;
function lt(x,y: integer): longint;
var l,t: longint;
begin
t:=1;
for l:=1 to y do t:=t*x;
lt:=t;
end;
begin
write('N='); readln(n);
for i:=2 to n do
if (i-1) mod 2<>0 then s:=s+lt((i-1),i)
else
if (i-1) mod 2=0 then s:=s-lt((i-1),i);
write(s);
readln
end.
#include <bits/stdc++.h>
using namespace std;
string n;
int d;
int main()
{
cin>>n;
d=n.length();
cout<<d;
return 0;
}
Câu 1.
int main() {
int cot, dong;
cin >> cot >> dong;
if ((cot + dong) % 2 == 0) cout << "NO";
else cout << "YES";
}
uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a+b+c=a*b*c) then writeln(a,b,c,' ');
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
if (a[i] mod 2=0) and (a[i] mod 3=0) then t3:=t3+a[i];
end;
writeln(t1);
writeln(t2);
writeln(t3);
readln;
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
if (n>=0) and (n<=100) then
begin
s:=0;
for i:=1 to n do
s:=s+(i/(i+1));
writeln('tong la: ',s);
end
else writeln('vui long nhap lai');
readln;
end.
Câu hỏi của Xuân Thành - Tin học lớp 8 | Học trực tuyến
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 50 do
s:=s+i;
writeln('S=',s);
readln;
end.
Nếu câu hỏi có trên diễn đàn rồi thì bạn chỉ cần gửi link cho các bạn tham khảo. Bạn không cần làm lại nhé
Dạ
Source: https://ideone.com/prk2gt (pascal)
Chúc bạn học tốt nha
program tinh_tong;
uses crt;
vaari,n:interger
S:longint;
begin
n:50; S=1;
for i:=1 to 50 do S:= s+i;
write(' tong cua ',n,' so tu nhien dau tien la ',S);
readln
end.
chúc bạn học tốt!
var i,s:integer;
begin
s:0;
for i:=1 to 50 do s:=s+i;
write('Tong:',S);
readln;
end
bạn có thể dùng câu này ngắn hơn!
sai rồi nhé bạn
ớ, sai ạ , chắc là mình nhầm đề