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.

18 tháng 3 2022

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.

18 tháng 3 2022

;v từ từ hình như viết sai bảng 

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.

26 tháng 2 2021

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,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.

uses crt;

var a:array[1..10]of integer;

i,n,t:integer;

begin

clrscr;

n:=10;

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/n:4:2);

readln;

end.

12 tháng 10 2021

Mình dùng C++ nên div = /; mod = % nha bn!

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
    S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}

Chúc bn học tốt!

13 tháng 10 2021

em cảm ơn ạ

 

13 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

string a[100];

int i;

int main()

{

for (i=1; i<=10;i++)

{

cin>>a[i];

}

for (i=1; i<=10; i++);

cout<<a[i]<<endl;

return 0;

}

uses crt;

const fi='dayso.inp',

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

i,n:integer;

f1:text;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

for i:=1 to n do write(a[i]:4);

close(f1);

readln;

end.