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.

18 tháng 1 2022

Uses crt;

Var n,i,a : integer;

Begin

 

a:=0;

Write('nhap n'); readln(n);

For i:=1 to n do

If (i mod 3= 0) then inc(a);

Writeln('so so chia het cho 3 la',a);

Readln

End.

program oken;
uses crt;
var n,i,dem:integer;
begin
   clrscr;
   write('nhap so n: '); readln(n);
   for i:=1 to n do
       if (i mod 3=0) then
           begin
               write(i,' ');
               dem:=dem+1;
           end;
   writeln;
   if dem=0 then
       writeln('tu 1 den ',n,' khong co so chia het cho 3.')
   else
       writeln('co ',dem,' so chia het cho 3.');
   readln;
end.

Uses crt;

Var n,i,a : integer;

Begin

 

a:=0;

Write('nhap n'); readln(n);

For i:=1 to n do

If (i mod 3= 0) then inc(a);

Writeln('so so chia het cho 3 la',a);

Readln

End.

program oken;
uses crt;
var n,i,dem:integer;
begin
   clrscr;
   write('nhap so n: '); readln(n);
   for i:=1 to n do
       if (i mod 3=0) then
           begin
               write(i,' ');
               dem:=dem+1;
           end;
   writeln;
   if dem=0 then
       writeln('tu 1 den ',n,' khong co so chia het cho 3.')
   else
       writeln('co ',dem,' so chia het cho 3.');
   readln;
end.

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

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

if kt=0 then writeln(n,' la so nguyen to')

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

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

14 tháng 1 2022

Var t,n:integer;

begin

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

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

17 tháng 12 2017

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

17 tháng 12 2017

what dờ phắc

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

Dạng 1: ÍT NHẤT Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị các phần tử có trong mảng ra màn hình. Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử có trong mảng ra màn hình. Dạng 2: TỐI ĐA Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị các phần tử có trong...
Đọc tiếp

Dạng 1: ÍT NHẤT
Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử
có trong mảng ra màn hình.
Dạng 2: TỐI ĐA
Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có tối đa 100 phần tử. In giá trị các phần
tử có trong mảng ra màn hình.
Dạng 3: GỒM
Bài 1: Viết chương trình tạo 1 mảng số nguyên gồm 5 phần tử. In giá trị các
phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng gồm 10 phần tử. In giá trị các phần tử có
trong mảng ra màn hình.

0
4 tháng 12 2016

program ct_dautien;

uses crt;

var x:integer;

begin

writeln('moi nhap a,b');readln(a,b);

if a>b then write(a) else write (b);

readln

end.

4 tháng 12 2016

minh viet lon, sua lai: var a,b: integer;

18 tháng 12 2017

1)Program songuyenduong;

Uses crt;

Var y: integer;

Begin

clrscr;

writeln('nhap so y'); readln(y);

if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');

readln;

End.

18 tháng 12 2017

2)

Program solonnhat;

uses crt;

var m,n,h,max: real;

Begin

clrscr;

writeln('nhap so m'); readln(m);

writeln('nhap so n'); readln(n);

writeln('nhap so h'); readln(h);

max:=m;

if m < n then max:=n;

if max < h then max=h then write('so lon nhat',max);

readln;

End.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

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

if (a[i]%2!=0) dem++;

cout<<dem;

return 0;

}