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 n,i: integer;
begin
write('Nhap so nguyen: '); readln(n);
for i:=1 to 10 do
writeln(n,' x ',i,' = ',n*i);
readln
end.
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
Tham khảo nhen
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
Tham khảo
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
Nếu A là một ma trận kích thước m x n, đoạn chương trình trên sẽ in ra giá trị của từng phần tử trong ma trận A, mỗi dòng một.
Cụ thể, với mỗi giá trị của i trong khoảng từ 0 đến m - 1, vòng lặp đầu tiên sẽ lặp qua từng phần tử trong hàng thứ i của ma trận A. Với mỗi giá trị của j trong khoảng từ 0 đến n-1, vòng lặp thứ hai sẽ in ra giá trị của phần tử tại vị trí (i,j) trong ma trận A bằng lệnh print(A[i][j],end=" "), kết thúc bằng một khoảng trắng.
Sau khi in hết các phần tử trong hàng thứ i, lệnh print() trong vòng lặp đầu tiên sẽ xuống dòng, chuyển sang in hàng tiếp theo của ma trận A. Như vậy, tổng hợp lại, đoạn chương trình sẽ in ra ma trận A dưới dạng bảng trên màn hình.
#include <bits/stdc++.h>
using namespace std;
int diaphuong(int n) {
if (n<2) {
return 0;
}
int squareRoot = (int) sqrt(n);
int i;
for(int i=2; i<=squareRoot; i++) {
if(n%i==0) {
return 0;
}
}
return 1;
}
int main() {
int i, N;
cin >> N;
for(int i=0; i<=N; i++) {
if(diaphuong(i)) {
cout << i << endl;
}
}
}
Chúc bn học tốt!
uses crt;
var a:array[1..9,1..10] of integer;
m,n,j,i:longint;
begin
clrscr;
for i:=1 to 9 do
for j:=1 to 10 do
begin
inc(m);
a[i,j]:=m;
end;
writeln('mang vua nhap: ');
for i:=1 to 9 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Mk đã giải đc r nên mk đăng lên cho bn nào cần nè.
uses crt;
var i,j:integer;
begin
clrscr;
for i:=2 to 9 do
begin
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
end;
readln;
end.