in bảng cửu chương 2n (với n nhập từ bàn phím)
Những câu hỏi liên quan
Viết chương trình bảng cửu chương n với n nhập từ bàn phím.
Viết chương trình tính tổng các số chẵn đc nhập từ bàn phím.
TIN HỌC 8
viết chương trình in ra màn hình bảng cửu chương của số N trong khoản từ 1 đến 9 , N được nhập từ bàn phím
uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.
Đúng 0
Bình luận (0)
program MultiplicationTable;
uses crt;
var
N, i, j: integer;
begin
clrscr;
write('Enter N: ');
readln(N);
for i := 1 to 9 do
begin
writeln(N, ' x ', i, ' = ', N*i);
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình in ra màn hình bảng cửu chương 2 số được nhập từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long i;
int main()
{
for (i=1; i<=10; i++)
cout<<"2*"<<i<<"="<<2*i<<endl;
return 0;
}
Đúng 0
Bình luận (0)
Vòng lặp xác định:
Viết chương trình tạo bảng cửu chương n với n nhập từ bàn phím
Tin
viết chương trình in ra màn hình bảng cửu chương của số n trong khoảng 1 dến 9 ,số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả
uses crt;
var i,n:integer;
begin
write('nhap n=');readln(n);
writeln('bang nhan',n);
for i:=1 to 10 do writeln(n,' x ',i:2,' = ',n*i:3);
readln
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào từ bàn phím bảng cửu chương 2 ( sử dụng lệnh lặp for to do ) anh giúp em ạ
Xem chi tiết
Program mun;
Uses crt;
Var i:integer;
Begin
For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);
Readln;
End.
P/s: Ko chắc ạ!
Đúng 1
Bình luận (0)
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
Đúng 0
Bình luận (0)
Program HOC24;
var a: array[1..32000] of integer;
i,max,min,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('So nho nhat la :',max);
write('So lon nhat la: ',min);
readln
end.
Đúng 0
Bình luận (0)
viêViết chương trình nhập 10 số nguyên từ bàn phím .in ra mành hình dãy số vừa nhập
Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ
viết trương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập
HELP ME
*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
*Viết chương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 2
Bình luận (1)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
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];
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)