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.

25 tháng 5 2017

Cách 1:

if (x >= 0) and (y >= 0)

then B:= sqrt(x) + sqrt(y) else B:= abs(x) + abs(y);

Cách 2:

if ( x < 0) and (y < 0)

then B:= abs(x) + abs(y) else B:= sqrt(x) + sqrt(y);

30 tháng 6 2019

Cách 1:

if (x >= 0) and (y >= 0)

then A:= sqr(x) + sqr(y) + 1 else A:= sqrt(x*y);

Cách 2:

if ( x < 0) and (y < 0)

then A:= sqrt(x*y) else A:= sqr(x) + sqr(y) + 1;

19 tháng 4 2021

câu 1:

a)for i:=17 to 109 do writeln('a');

b)for i:=1 to 10 do x:=x+1;

c)s:=7;

while s<=15 do

begin

n:=n+s;

s:=s+1;

end;

d)var a:array[1..100] of real;

câu 2:

program tihn_tong;

uses crt;

var s,i:integer;

begin

clrscr;

i:=1;s:=1000;

while i<=21 do

begin

s:=s+1000+i;

i:=i+1;

end;

writeln(s);

readln;

end.

câu 3:

cú pháp của lệnh for...to...do:

for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>

cú pháp của lệnh while...do:

while<điều kiện>do<công việc>

câu 4:

cú pháp khai báo biến mang trong chương trình pascal:

khai báo trực tiếp:

var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>

khai báo gián tiếp:

type <biến mang> =array[chỉ số]of <kiểu dữ liệu>

 

Câu 1: 

a) for i:=17 to 109 do 

  writeln('a');

16 tháng 3 2018

don' t chew gum in the class

keep quiet

listen and repeat

16 tháng 2 2022

Mình viết phần thân thôi nha

n khai báo là interger

n:=0;

While n<>100 do

 Begin

 Write(n,' ');

 inc(n);

 end;

17 tháng 2 2022

PROGRAM LOSER;
USES crt;
VAR  
  i:Bytbe;
BEGIN
 clrssr ();
 i:=1;
 while i <100 do
 BEGIN
 write('',i);
 i:=i+1;
 End;
Readln;
END.

( uy tín chạy được em nha)

30 tháng 3 2021

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

15 tháng 9 2023

Một số văn bản nghị luận về tác phẩm Nắng mới:

https://www.qdnd.vn/van-hoa/sach/nang-moi-thi-pham-hay-ve-nguoi-me-709974

https://sachgiai.com/Toan-hoc/binh-giang-bai-tho-nang-moi-cua-luu-trong-lu-13976.html