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.

17 tháng 12 2018

begin

writeln(' THCS Binh An ');

readln;

end.

17 tháng 12 2018

Program @Nk>↑@(cái này cho vui thôi nha);

Uses Crt;

Begin

Clrscr;

Writeln('THCS Binh An');

Readln;

End.

25 tháng 9 2021

begin 

write ('TRUONG THCS ...');

write ('CHAO CAC BAN HOC SINH LOP 8');

readln ;

end.

 

25 tháng 9 2021

Cảm ơn bn nhiều

27 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

cout<<"Chao cac ban"<<endl;

cout<<"Minh ten la:"<<endl;

cout<<"Minh hoc lop:";

return 0;

}

4 tháng 12 2021

program XinChao;

uses crt;

begin

Clrscr;

writeln ('Chao cac ban!');

writeln('Minh ten la Nguyen Mai Phuong ');

writeln('Minh hoc lop 8A4');

readln;

end.

đáp án nha

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

23 tháng 10 2021

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1);

readln(st2);

writeln('Ten minh ',st1);

writeln('Lop ',st2);

readln;

end.

27 tháng 10 2021

cảm ơn nhìu ạ

5 tháng 9 2023

Chắc chắn rồi, đây là code C++ để đếm ngược từ N về 0:

C++

#include <iostream>

 

int main() {

  int n;

  std::cout << "Nhập số nguyên N: ";

  std::cin >> n;

 

  for (int i = n; i >= 0; i--) {

    std::cout << i << std::endl;

  }

 

  return 0;

}

Input:

Nhập số nguyên N: 5

Output:

5

4

3

2

1

0

Giải thích:

Code sử dụng vòng lặp for để lặp từ n đến 0, với mỗi vòng lặp, in ra giá trị của biến i.

Bạn có thể thay đổi input để kiểm tra xem chương trình có hoạt động chính xác hay không.

 

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

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

readln;

end.

17 tháng 2 2021

program (tự việt nhé)

begin

a:=14;

writeln('Bang cuu chuong 14');readln;

for i:=1 to 10 do begin

writeln(a*i); delay(1000);

end;

readln;

end.

5 tháng 5 2022

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

8 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.