1. соотнесите названия операторов, служебных слов, функций и их написание на языке paskal: 1. оператор ввода данных a) begin, end 2. условный оператор в неполной форме b) sqrt(x) 3. оператор цикла с предусловием c) n div m 4. оператор цикла с параметром d) write, writeln 5. условный оператор в полнойформе e) read, readln 6. раздел описания переменных f) n mod m 7. описание одномерного целочисленного массива g) sqr(x) 8. корень квадратный из х h) if then 9. возведение х в квадрат i) while do 10. начало и конец j) var 11. определение остатка при делении числа n на м k) n: array [1..100] of integer 12. определение целой части при делении числа n на м l) if then else 13. оператор вывода данных m) for i: =n to m do
Ответы
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.
55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
2. - h) If ... then ...
3. - i) While ... do ...
4. - m) For i:=N to M do
5. - l) If ... then ... else ...
6. - j) Var
7. - k) N: array [1..100] of integer
8. - b) Sqrt(X)
9. - g) Sqr(X)
10. - a) Begin, End
11. - f) N mod M
12. - c) N div M
13. - d) Write, Writeln