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.

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

14 tháng 12 2022

?????

 

14 tháng 12 2022

j?

17 tháng 4 2017

Good morning ! Welcome to the weather forecast. Let's take a look at the weather today and tomorrow. Today, it's cool and sunny in Ha Noi. What will the weather be tomorrow ?  Well, it will be hot and sunny. This is the weather forecast of today and tomorrow. The program is coming to an end. Please watch the show tomorrow. Have a nice day. Good bye !

17 tháng 4 2017

Good morning ! We will come to weather forecasts today and tomorrow .Today in Hanoi it's cool and sunny. What will tomorrow be? Watch ! Tomorrow in Hanoi it's hot and sunny .This is the weather forecast today and tomorrow . The weather forecast program here comes to end . Please watch the show tomorrow. Have a nice day ! Goodbye .
 

14 tháng 3 2023

Var a:array[1..100] of integer;

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

30 tháng 11 2021

Tham Khảo:

uses crt;

var ngay:integer;

lp:string;

begin

clrscr;

repeat

write('nhap so ngay thue phong khach san:'); readln(ngay);

if ngay<=0 then writeln('nhap lai');

until ngay>0;

repeat

write('nhap loai phong:'); readln(lp);

if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');

until (lp='A') or (lp='B') or (lp='C');

case lp of

'A': write(300000*ngay);

'B': write(250000*ngay);

'C': write(200000*ngay);

end;

readln;

end.

3 tháng 7 2021

Bạn tham khảo ở nguồn này nha.

Tham khảo code chương trình nhập vào ngày tháng năm - programming - Dạy Nhau Học (daynhauhoc.com)

4 tháng 7 2021

copy