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;

var x,y:integer;

begin

clrscr;

readln(x,y);

writeln(2*x*x+y);

readln;

end.

15 tháng 11 2021

uses crt;

begin

clrscr;

writeln(10+4*sqr(15-10)/6+4);

readln;

end.

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a*a+a+b);

readln;

end.

28 tháng 11 2022

program lcmmmmmm;

var

a,b,c,s:integer; // có thể thay integer bằng longint

begin

assign(input,'bai1.inp');reset(input);

assign(output,'bai1.out');rewrite(output);

readln(a,b,c);

s:=0;

s:=(a*a+(a+b));

write(s);

end.

8 tháng 10 2021

90/(3-8*2)

18 tháng 4 2023

Program HOC24; 

var x,y,z,a,b: real;

begin

write('Nhap x: '); readln(x);

write('Nhap y: '); readln(y);

write('Nhap z: '); readln(z);

a:=x*x+y*y+z*z;

writeln('Ket qua cau a la: ',a:6:2);

b:=sqrt(x+y+z);

write('Ket qua cau b la: ',b:6:2);

readln

end.

29 tháng 11 2016

var a,b,c: real;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

c:= (a+b)/2;

write('Gia tri cua bieu thuc c=(a+b)/2 la: ',c);

end.

(chạy thử ct đi ^^!)

13 tháng 3 2023

Program HOC24;

var a,b: integer;

D: longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

D:=2*(a+b);

write('D = ',D);

readln

end.