uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a*a*a+b*b*b+a*b);

readln;

end,

uses crt;

var n,t,i,x: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,

import math

a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))

d = b**2 - 4*a*c

if d > 0:
    x1 = (-b + math.sqrt(d)) / (2*a)
    x2 = (-b - math.sqrt(d)) / (2*a)
    print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
    x = -b / (2*a)
    print("Phương trình có nghiệm kép: x =", x)
else:
    print("Phương trình không có nghiệm thực."

Em cảm ơn ạ!!

program Xau219;
uses crt;
Var S:String;
    dem, max, i:Byte
begin
  clrscr;
  Write ('Nhap xau:'); Readln (S);
  max:=0; dem:=0; S:=S+'';
  For i:=1 to Length (S) do
  begin
     If S[i] ='8' then dem:=dem+1
     else
       If max<them then
          begin max:=dem; dem:=0; end;
  end;
  Writeln('Ket qua:'max);
  readln;
end.

Làm bằng pos đc ko ạ

D

CPU làm những công việc chủ yếu nào?

A.lưu giữ     B.xử lý     C.điều khiển     D.cả 3

a=-1 có nghĩa là gán a cho -1

c++ có nghĩa là tăng c thêm 1 đơn vị

a=-1 có nghĩa là gán -1 cho a

c++ có nghĩa là tăng c thêm 1 đơn vị