Câu 1: Viết chương trình tính tổng các số tư nhiên trong phạm vi từ 10 đến 55. Thông báo kết quả ra màn hình?
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 s,i:integer;
begin
clrscr;
s:=0;
for i:=15 to 25 do
s:=s+i;
writeln(s);
readln;
end.
Viết chương trình tính tổng các số tự nhiên trong phạm vi từ 10 đến 99
Thông báo kết quả ra màn hình?
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.
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.
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;
}
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 55 do s:=s+i;
writeln(s);
readln;
end.