uses crt;

var a,b,c,d,e: array[1..100] of real;

hsg,hsk,hstb,hsy,i:integer;

begin

clrscr;

hsg:=0; hsk:=0; hstb:=0; hsy:=0;

write('nhap so hoc sinh trong lop');readln(n);

for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(a[i]);end;

for i:=1 to n do begin writeln('diem 15p ban thu',i,'la:');readln(b[i]);end;

for i:=1 to n do begin writeln('diem giua ki ban thu',i,'la:');readln(c[i]);end;

for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(d[i]);end;

{'nhap rieng khoi nham nhe'};

for i:=1 to n do begin e[i]:=(a[i]+b[i]+c[i]*2 + d[i]*4)/7;

if e[i]<5.0 then hsy:=hsy+1;

if (e[i]<6.5) and (e[i]>5.0) then hstb:=hstb+1;

if (e[i]>6.5) and (e[i]<8.0) then hsk:=shk+1;

if e[i]>8.0 then hsg:=hsg +1; end;

write('so ban dat hsg',hsg);

write('so ban dat hsk',hsk);

write('so ban dat hstb',hstb);

write('so ban dat hsy',hsy); readln

end.

Hi bn !

Hong coá đou .

saosao piết

program sole;

uses crt;

var a:array[1..100] of integer; i,n,s:integer;

begin

clrscr; s:=0;

write('nhap do dai cua mang');readln(n);

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

if a[i] mod 2 <>0 then begin writeln('cac so le trong day',a[i],' ');

s:= s+ a[i]; end; end;

readln;

end.

pascal hả

ờ ờ tớ không biết nhé 

uses crt;

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

begin

write('nhap do dai day');readln(n);

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

if a[i] mod 2= 0 then write('so duong ', a[i],' ');end;

readln

end.

uses crt; 

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

begin

write('nhap do dai day');readln(n);

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

if (a[i] >30) and (a[i] mod 5 = 0) then write(a[i],' ');end;

readln;

end.

Trả lời:

Uses Crt; Var a, b, kq: Real; Pt: Char;

BEGIN

Clrscr;

Write ('a ='); Readln(a);

Write ('b ='); Readln(b);

Write ('Phep tinh can thuc hien la (+ - * /): ');

Readln(Pt);

If Pt = '+’ Then kq := a + b;

If Pt = '-’ Then kq := a - b;

If Pt = '*’ Then kq := a * b;

If Pt = '/’ Then kq := a / b;

Write (a, pt, b, '=', kq);

Readln;

END.

#include <iostream>

#include <bits/stdc++.h>

using namespace std;

int a,b,kq=0;

int main()

{

   cout<<"nhap a,b"<<endl;

   cin>>a>>b;

   for (int i=a;i<=b;i++)

   {

      kq=kq+i;

   }

   cout<<kq;

   return 0;

}

Chuột máy tính nháy chuột