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