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 tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.
mk mới làm tổng thui nghen
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
n = int(input("Nhập vào số nguyên bất kỳ")) for i in range (1, n + 1): print(i)
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
uses crt;
var x,y,z,n : integer;
begin clrscr;
write('Nhap n:'); readln(n);
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if n*(x+y+z) = x*100+y*10+z then
write('So thoa man de la :', x,y,z, ' ');
readln
end.
uses crt;
var a,b,c:array[1..100]of real;
n,i,dem,j:integer;
tb,max,min:real;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem Toan,Tin cua ban thu ',i,'='); readln(a[i],b[i]);
until (0<a[i]) and (a[i]<=10) and (0<b[i]) and (b[i]<=10);
end;
dem:=0;
for i:=1 to n do
begin
tb:=(a[i]+b[i])/2;
inc(dem);
c[dem]:=tb;
end;
max:=0;
min:=10;
for i:=1 to dem do
begin
if max<c[i] then max:=c[i];
if min>c[i] then min:=c[i];
end;
writeln('Trung binh cao nhat la: ',max:4:2);
writeln('Trung binh nho nhat la: ',min:4:2);
readln;
end.
các thiết bị vào ra cơ bản là bàn phím chuột màn micro tai nghe...
Program HOC24;
var m,n,i: integer;
Begin
write('Nhap N: '); readln(n);
write('Nhap M: '); readln(m);
for i:=m to n do if sqr(trunc(sqrt(i)))=i then write(i,' ');
readln
end.