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.
Program HOC24;
var i,d,n,x: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Nhap x: '); readln(x);
d:=0;
for i:=1 to n do if a[i] mod x=0 then d:=d+1;
write(d);
readln
end.
program TinhTongSoNguyenTo;
var
X, Y, i, j, dem, tong: integer;
begin
write('Nhap X: ');
readln(X);
write('Nhap Y: ');
readln(Y);
tong := 0;
for i := X to Y do
begin
dem := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
dem := dem + 1;
break;
end;
if dem = 0 then
tong := tong + i;
end;
writeln('Tong cac so nguyen to tu ', X, ' den ', Y, ' la: ', tong);
readln;
end.
Lỗi chỗ câu lệnh:
"If x mod 3 = 0 then do P:=P*x;" (dư chữ do)
Câu 2:
Program nii;
Uses crt;
Var a,b,c,A:integer;
Begin
Write ('nhap a');
Readln (a);
Write ('nhap b');
Readln (b);
Write ('nhap c');
Readln (c);
A:=a;
If A<b then A:=b;
If A<c then A:=c;
Write ('Ket qua',A);
Readln;
End.
Câu 1
Program ntg;
Uses crt;
Var A,x,y:integer;
Begin
Write ('nhap x');
Readln (x);
Write ('nhap y');
Readln ('y');
A:=x+y;
Write ('Ket qua',A);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
int x,y;
int main()
{
cin>>x>>y;
cout<<"Gia tri cua x la: "<<x;
cout<<"\nGia tri cua y la: "<<y;
Return 0;
}
#include <bits/stdc++.h>
using namespace std;
int n,x,i,cnt,res;
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
cin>>x;
if(x%cnt==0) res++;
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
const int gh=1000;
int n,x,i,cnt,res,dem[gh];
int main() {
ios_base::sync_with_stdio(false);
cin.tie(NULL);
cout.tie(NULL);
cin>>n>>cnt;
for(i=0;i<n;i++)
{
cin>>x;
if(x%cnt==0) { res++; dem[res]=x;}
}
cout<<"so luong phan tu chia het cho "<<cnt<<" la: "<<res;
cout<<"\n"<<"cac phan tu do la: "<<"\n";
for(i=1;i<=res;i++)
cout<<dem[i]<<" ";
return 0;
}
// đây mới đúng mik đọc lỗi đề nha bạn!!
uses crt;
var i,n,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i mod 3=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln(t);
readln;
end.
b làm giúp mình in ra giống yêu cầu đề bài với ạ