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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
2 tháng 3 2022
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
t:=0;
for i:=1 to n do
begin
if a[i] mod 3=0 then dem:=dem+1;
end;
for i:=1 to n do t:=t+a[i];
writeln('So phan tu chia het cho 3 la: ' ,dem);
writeln('Tong cac so la: ',t);
readln;
end.
KE
0
ST
11 tháng 2 2020
Program Sara_Trang;
Uses Crt;
Var n:integer;
Function gt(n:integer):longint; Var kq,i:integer;
Begin
kq:=1;
For i:=1 to n do kq:=kq*i;
gt:=kq;
End;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH N! :');
Writeln('---------------------------------------');
Write('Nhap n = '); readln(n);
Writeln(n,'! = ',gt(n));
Readln;
End.
Mik ko giỏi phần CT con cho lắm sai sót mong bạn thông cảm
22 tháng 3 2021
Câu 1:
Dùng for..do
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 100 do
if i mod 2=0 then a:=a+i;
writeln(a);
readln;
end.
Dùng While...do
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
i:=1;
while i<=100 do
begin
if i mod 2=0 then a:=a+i;
inc(i);
end;
writeln(a);
readln;
end.
NT
3
27 tháng 4 2017
4. program bai_4;
ues crt;
var
s,n,i:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
readln;
end.
5.program bai_5;
uses crt;
var
i,s,n:integer;
begin
clrscr;
write('nhap n :');readln(n);
s:=0;
for i:=1 to n do s:=s+1;
writer('tong la:',s);
readln;
end.
27 tháng 4 2017
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
for i:= 1 to n do
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
31 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Đù gặp chú trên này luôn