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.

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 55 do s:=s+i;

writeln(s);

readln;

end.

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=15 to 25 do 

  s:=s+i;

writeln(s);

readln;

end.

28 tháng 2 2022

Program Tong_cac_so_tu_nhien;

Uses CRT;

Var i,d: Byte;

Begin

d:=0;

For i = 10 to 99 Do d:=d+i;

Writeln('Tong cac so tu nhien tu 10 den 99 la ',d);

End.

10 tháng 3 2023

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

 

7 tháng 3 2022

Uses Crt;

Var i,S:longint;

Begin

Clrscr;

Readln(i,S);

For i:=15 to 25 do S:=S+i

Write(S);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

int s,i;

int main()

{

s=0;

for (i=15; i<=25; i++) s+=i;

cout<<s;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t,dem;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

if (x%2==0 && x>10) t+=x;

if (x%2!=0 || x<100) dem++;

}

cout<<t<<" "<<dem;

return 0;

}