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 m,n:integer;

begin

clrscr;

readln(m,n);

if m<n then write('m nho hon n')

else if m>n then write('m lon hon n')

else write('m bang n');

readln;

end.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long m,n,x,y;

int main()

{

cin>>m>>n>>x>>y;

cout<<min(m,min(n,min(x,y)));

return 0;

}

18 tháng 3 2022

Tham khảo
Bài 2.
Var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.

18 tháng 3 2022

mk quên nói đây là viết theo kiểu Python á 

1:

uses crt;

var t,x,i,n:integer;

begin

clrscr;

t:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

t:=t+x;

end;

write(t);

readln;

end.

2: 

uses crt;

var dem,x,i,n:integer;

begin

clrscr;

dem:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

write(dem);

readln;

end.

4 tháng 4 2023

3

program Cacsole;
uses crt;
var M, N, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
for i := M to N do

if  i mod 2 = 1 then
write (i,' ');
readln;
end.

11 tháng 12 2021

In ra kết quả gì nếu xảy ra 1 trong 2 trường hợp vậy bạn?

19 tháng 4 2017

Type mang=array [1..20] of integer;

var a:mang; i,n:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

if a[i] mod 2 = 0 then writeln(a[i])

else writeln(' khong in');

end.

28 tháng 4 2019

Lời giải :

program hotrotinhoc;

var a: array[1..32000] of integer ;

i,n,tong : integer ;

begin

write('n='); readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0;

for i:= 1 to n do

if a[i] mod 2 <> 0 then tong:=tong+a[i];

write('Tong cac so le la :',tong);

readln

end.

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

uses crt;

var n,m,i,dem,t,t1,d1:integer;

//chuongtrinhcon

function ktnt(var n:integer):boolean;

var i:integer;

kt:boolean;

begin

kt:=true;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=false;

if (kt=true) then ktnt:=true

else ktnt:=false;

end;

//chuongtrinhchinh

begin

clrscr;

readln(n,m);

if (ktnt(n)=true) then writeln(n,' la so nguyen to')

else writeln(n,' ko la so nguyen to');

dem:=0;

t:=0;

for i:=2 to n do 

  if (ktnt(i)=true) then

begin

write(i:4);

t:=t+i;

dem:=dem+1;

end;

writeln;

writeln(t,' ',dem);

t1:=0;

d1:=0;

for i:=n to m do 

  if ktnt(i)=true then

begin

write(i:4);

t1:=t1+i;

inc(d1);

end;

writeln;

writeln(t1,' ',d1);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long m,n;

int main()

{

cin>>m>>n;

cout<<m*n;

return 0;

}