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.
viết dạng các bước hoặc làm trên scratch(ảnh)
Bài 1:
Uses crt;
var i,n,j:integer;
a,b,c:array[1..100000] of integer;
Begin
clrscr;
readln(n);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do readln(b[i]);
j:=0;
for i:= 1 to n do
Begin
inc(j);
c[j] := a[i];
inc(j);
c[j] := b[i];
end;
for i:= 1 to j do write(c[i],' ');
readln;
end.
Đây là một ví dụ về phương trình kiểm tra số nguyên a là số chẵn hay số lẻ trong Scratch:
```scratch
Nhập "a" từ bàn phím
Nếu (a % 2 = 0) thì
Hiển thị "a là số chẵn"
Ngược lại
Hiển thị "a là số lẻ"
Kết thúc
```
Trong đó, `%` là toán tử chia lấy phần dư, và nếu `a % 2` bằng 0, thì số đó là số chẵn; ngược lại, là số lẻ.
when green flag clicked
ask "Nhập số nguyên a:" and wait
set a to ((a) / (2)) * (2)
if (a) = (a) then
say "Số nguyên a là số chẵn"
else
say "Số nguyên a là số lẻ"
end
program CompareNumbers;
var
x, y: real;
begin
// Bước 1: Nhập 2 số thực x và y từ bàn phím
write('Nhap so thuc x: ');
readln(x);
write('Nhap so thuc y: ');
readln(y);
// Bước 2: So sánh x và y, in ra số lớn hơn
if x > y then
writeln('x lon hon y')
else if x < y then
writeln('y lon hon x')
else
writeln('x bang y');
readln;
end.
(khoog bt đúng ko)
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
xin tick