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.

uses crt;

begin

clrscr;

writeln((8+17+11)/3:4:2);

readln;

end.

Chọn D

7 tháng 10 2022

8*8-2/((7+2)*(7+2))*2/3

a: (-b-sqrt(b*b-4*a*c))/(2*a)

b: =(-5-sqrt(5*5-4*7*9))/(2*7)

7 tháng 10 2022

Máy có thể hiểu đc ngôn ngữ lập trình như Javan, C+,C++, Phytho,Java,..

7 tháng 10 2022

Máy tính chỉ có thể hiểu và thực hiện được ngôn ngữ máy

a: var a,b,h:integer;

b: var a,b:integer;

s:real;

c: var a,b,c:integer;

uses crt;

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

i,n,j,kt,dem:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n do 

  if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then dem:=dem+1;

end;

writeln(dem);

readln;

end.