Tin học bài tập pascal - giải câu 21 ai help với

[NhÓc NhÍ NhỐ]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

 

[ka1412]

View attachment 87602

uses crt;
var m,x:longint;
begin
clrscr;
readln(m);
x:=m*m+2017;
write(2*x*x*x+3*x+2017);
readln
end.

 

[Đậu Thị Khánh Huyền]

program CT;
uses crt;
var m,x:real;
begin
clrscr;
write('Nhap m');
readln(x);
x:=m*m+2017
writeln('Gia tri m la',x:5:1);
readln;
end.