Những câu hỏi liên quan
duclinh
Xem chi tiết
Lương Thị Thanh Hương
Xem chi tiết
Giao Huỳnh
20 tháng 8 2017 lúc 13:01

uses crt;

var a,b:longint;

begin

clrscr;

write('nhap so thu nhat:');readln(a);

write('nhap so thu hai:');readln(b);

if (a mod 2=0) and (b mod 2=0) then

write('ca hai so deu chan')

else if (a mod 2<>0) and (b mod 2<>0) then

write('ca hai so deu le')

else write('ban vua nhap mot so chan va mot so le');

readln;

end.

banh

chúc bạn học tốtok

Bình luận (0)
hong nhung
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:40

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
minh nguyen cong
Xem chi tiết
Minh Lệ
21 tháng 4 2019 lúc 8:45

Lời giải :

program hotrotinhoc ;

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

i,n,max : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

max:=a[1];

for i:= 1 to n do if max<a[i] then max:=a[i];

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

readln

end.

Bình luận (0)
huỳnh thị kim thúy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:40

#include <bits/stdc++.h>

using namespace std;

long long t,i,n,x;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x<0) t=t+x;

}

cout<<t;

return 0;

}

Bình luận (0)
Tran Quoc Toan
Xem chi tiết
Hùng Nguyễn Thế
4 tháng 3 2018 lúc 9:50

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.

Bình luận (0)
Duongtrucqui
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 6 2020 lúc 20:19

uses crt;

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

n,i,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so nguyen duong la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

writeln;

writeln('Cac so nguyen to la: ');

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

Bình luận (0)
lollllllllllllllll
Xem chi tiết
demon cute boy
12 tháng 1 2022 lúc 14:31

bạn viết có dấu đi mình ko hiểu

Bình luận (0)
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:21

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d,e,t;

int main()

{

cin>>a>>b>>c>>d>>e;

t=0;

if ((a%10==0) or (a%10==5)) t=t+a;

if ((b%10==0) or (b%10==5)) t=t+b;

if ((c%10==0) or (c%10==5)) t=t+c;

if ((d%10==0) or (d%10==5)) t=t+d;

if ((e%10==0) or (e%10==5)) t=t+e;

cout<<t;

return 0;

}

Bình luận (0)
nguyenthuha2904
Xem chi tiết
Gia Huy
8 tháng 7 2023 lúc 15:35

#include <iostream>
#include <iomanip>
#include <cmath>
#include <cstdio>
using namespace std;

#include <bits/stdc++.h>

int main() {
    int n;
    cin >> n;
    int total = 0;

    for (int i = 1; i <= n; i++) {
        if (i % 20 == 0 && i % 10 != 0) {
            if (i <= (n / 10)) {
                total += i * i;
            }
        } else {
            total += i;
        }
    }
    cout << "The total is: " << total << endl;

    for (int i = 0; i < n; i++) {
        int du = i % 10;
        int tongcacso = i % 10 * i % 10 * i % 10;
        cout << "du = " << du << endl;
        total += du * du * du;
        cout << "\nsum = " << total << endl;
        cout << "sum = (sum+i*i*i) " << endl;
    }

    return 0;
}

Bình luận (0)