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.

14 tháng 3 2023

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

28 tháng 4 2017

1/

program uoc;

uses crt;

var n,i,dem,x:word;

a:array[1..20] of longint;

begin

clrscr;

write('nhap so phan tu cua day:') ;readln(n);

while n>20 do

begin

write('nhap lai so phan tu thoa man toi da la 20 phan tu:');

readln(n);

end;

writeln('nhap cac phan tu cua mang:');

for i:=1 to n do

begin

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

end;

write('nhap so nguyen x:'); readln(x);

dem:=0;

for i:=1 to n do

if x mod a[i] =0 then

begin

dem:=dem+1;

writeln(a[i],' la uoc cua ',x);

end;

if dem=0 then writeln('khong co phan tu la uoc cua ',x)

else write('co ',dem,' phan tu la uoc cua ',x);

readln;

end.banhqua

30 tháng 10 2017

k thấy rõ bạn ơi

11 tháng 10 2021

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln('Tong a+b la ',a+b);

writeln('Hieu a-b la ',a-b);

writeln('Tich cua a*b la ',a*b);

writeln('Thuong cua a/b la ',a/b:4:2);

readln;

end.

12 tháng 10 2021

Câu 2: (C++)

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << "Tong a+b la: " << a+b << "\nHieu a-b la: " << a-b << "\nTich a*b la: " << a*b << "\nThuong a/b la: " << (double)a/b << endl;
return 0;
}

Chúc bn học tốt!

à nó có updates kìa, bạn updates đi

bạn thử vào microsoft store xem

22 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d,ln;

int main()

{

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

ln=a;

ln=max(ln,b);

ln=max(ln,c);

ln=max(ln,d);

cout<<ln;

return 0;

}