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ác câu hỏi dưới đây có thể giống với câu hỏi trên
11 tháng 11 2021
bạn ghi xuống dòng được ko chứ bạn ghi thế này mình chả hiểu gì cả
TD
1
26 tháng 4 2023
| Program Tinhoc | Program Tinhoc; |
| Var i,n,S:real | Var i,n,S:real |
| Begin | Begin |
| Write(nhap so); | Write("nhap so"); |
| readln(n); | readln(n); |
| i=1; | i:=1; |
| while i<n | while i<n do |
| begin | begin |
| s:=s+i | s:=s+i; |
| i:=i+1 | i:=i+1; |
| end; | end; |
| write('Ket qua la: ' S); | write('Ket qua la: ' ,S); |
| readln; | readln; |
| end | end. |
5 tháng 1 2022
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
KV
5 tháng 5 2023
Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;
Lỗi: gia tri sửa lại: giatri
Lỗi: readin(n) sửa lại: readln(n);
Lỗi: i:=1 sửa lại: i:=1;
Lỗi: while i < n do sửa lại: while i <= n do
Lỗi: i:=i+2 sửa lại: i:=i+1;
Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);
H
16 tháng 12 2020
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
LN
5 tháng 12 2021
* Program cau 1 phải trước uses crt;
Var toan; van; tbc; anh, interger; ( Sai )
=> Var toan, van, tbc, anh: integer;
* Begin phải trước lệnh clrscr;
