4. что будет выведено на экран в результате выполнения инструкции? a) n : =5; x : =0; for i: =1 to n do x: = i; writeln(x); b) n: = 1; while n < = 10 do begin x: = n*n; writeln (n : 6, ’ ‘ , x : 6); end; c) n : = 0; repeat write(‘ * ’); n : = n + 1; until n < 5; 5. чему будет равно значение переменной n после выполнения инструкции? n: =0; while n < 5 do n : = n+1; 6. для данной инструкции запишите условие окончания цикла так, чтобы цикл завершался, если введено 10 чисел или введенное число 0. n: = 0; repeat write(‘ -> ’); readln(a); n: = n+1; until ; 7. составьте программу, которая а) выводит на экран числа от 1 до 10. б) квадраты нечетных чисел от 7 до 27. в) квадратные корни из чисел 3, 7, 11, …23.
Ответы
Procedure TForm1.Button1Click(Sender: TObject);
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
Var
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
begin
readln(s);
readln(s1);
n:=1;
if length(s)>length(s1) then
x:=length(s)
else x:=length(s1);
for i:=1 to length(s) do
begin
val(copy(s,i,1),k,n);
a[i+x-length(s)]:=k;
end;
for i:=1 to length(s1) do
begin
val(copy(s1,i,1),k,n);
b[i+x-length(s1)]:=k;
end;
for i:=1 to length(s) do
a[i]:=a[i]+b[i];
for i:=length(s) downto 2 do
begin
a[i-1]:=a[i-1]+a[i]div 10;
a[i]:=a[i]mod 10;
end;
for i:=1 to length(s) do
write(a[i]);
end.
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
begin
readln(s);
readln(s1);
n:=1;
if length(s)>length(s1) then
x:=length(s)
else x:=length(s1);
for i:=1 to length(s) do
begin
val(copy(s,i,1),k,n);
a[i+x-length(s)]:=k;
end;
for i:=1 to length(s1) do
begin
val(copy(s1,i,1),k,n);
b[i+x-length(s1)]:=k;
end;
for i:=1 to length(s) do
a[i]:=a[i]+b[i];
for i:=length(s) downto 2 do
begin
a[i-1]:=a[i-1]+a[i]div 10;
a[i]:=a[i]mod 10;
end;
for i:=1 to length(s) do
write(a[i]);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как удалить игру в GameLoop?
Автор: goodsled
решить задания по информатике
Автор: Tatarnikova1507
a)
1
2
3
4
5
b)
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
c)
пустой вывод
#5
n = 5
#6
until n > 10 or a == 0
#7
a)
program _1to10;
var
i: integer;
begin
for i := 1 to 10 do
write(i, ' ')
end.
b)
program sqr_7_27;
var
i: integer;
begin
for i := 7 to 27 do
begin
if i mod 2 == 1 then
write(sqr(i), ' ');
end;
end.
c)
program sqrt_3_4per_23;
var
i: integer;
begin
i := 3;
repeat
write(sqrt(i), ' ');
i := i + 4;
until (i > 23);
end.