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.

16 tháng 11 2021

a: int m;

double q;

14 tháng 3 2023

Var a,b,s,p:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

p:=(a + b)*2;

s:=a*b;

Write('P = ',p:10:2,' va s = ',s:10:2);

Readln;

End.

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.

22 tháng 2 2022

Cảm ơn bạn nhiều nha 😊

4 tháng 1 2022

1B

2D

23 tháng 10 2022

sai rồi

 

20 tháng 1 2022

1. A
2. B
3. A

20 tháng 1 2022

1a

2b

3d

uses crt;

var n,x:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

x[2]:=12;