вопрос № 1
1) следование
2) цикл
4) ветвление
вопрос № 2
4) все, кроме вещественных
вопрос № 3
1) для данных целого типа
Объяснение:
вопрос № 1 любой алгоритм строится из трех элементов следование, цикл, ветвление. что такое вс не знаю
вопрос № 2 порядковые типы: целые, булевы (логические) и символьные. Вопрос не корректный, так как существуют такие типы данных как строки, массивы, файлы, указатели и т.д. и это всё не порядковые типы. Наиболее правильным было бы выбрать ответ: "ничего из перечисленного не подходит". Если требуется выбрать что-то из перечисленного, то более других подходит ответ 4.
вопрос № 3 тут целый тип, однозначно
Код:
1.program HappyTicket;
2.var
3.n, a: longint;
4.left, right, digits, i: byte;
5.begin
6.readln(n);
7.a := n;
8.digits := 0;
9.while a <> 0 do begin
10.a := a div 10;
11.inc(digits)
12.end;
13.left := 0;
14.right := 0;
15.for i := 1 to digits div 2 do begin
16.right := right + n mod 10;
17.n := n div 10
18.end;
19.if odd(digits) then n := n div 10;
20.for i := 1 to digits div 2 do begin
21.left:= left + n mod 10;
22.n := n div 10
23.end;
24.writeln(left = right)
25.end.
Представим, как должен работать алгоритм при вводе числа 14350:
1) Считаем длину числа, она равна 5 (строки 11-14);
2) В цикле из 5 div 2 = 2 повторений прибавляем к right крайние справа цифры 0 и 5, после чего отбрасываем их и имеем в n 143 (строки 17-20);
3) Так как odd(digits) = odd(5) = true, отбрасываем 3, после чего имеем в n 14 (строка 21);
4) В цикле из 5 div 2 = 2 повторений прибавляем к left оставшиеся цифры 1 и 4, после чего n становится равно 0, что, впрочем, нас уже не интересует (строки 22-25);
5) Выводим на экран значение выражения left = right – ответ положительный (строка 26)
Объяснение:
Для ее решения необходимо знать длину числа (то есть его разрядность), вследствие чего нам необходимо скопировать переменную n в некоторую другую (например, a), чтобы на основе a посчитать количество десятичных разрядов n и сохранить его в некоторой переменной digits. Сделать это можно так:
a := n;
digits := 0;
while a <> 0 do begin
a := a div 10;
inc(digits)
end;
Відповідь:
program Pr1;
var
a: array[1..10] of integer;
i,k,n,s: integer;
sr: real;
begin
Randomize;
k := 0;
s := 0;
for i := 1 to 10 do
begin{формирование массива}
a[i] := random(41) - 20;
write(a[i]:5);
if a[i] > 0 then
begin
S := S + A[i];
n := n + 1;
end;
if abs(a[i]) mod 10 = 7 then
k := k + 1;
end;
writeln;
WRITELN('Количество элементов на 8: ', k);
if n<>0 then
begin
SR := S / N;
WRITELN('Среднее: ', SR);
end
else
writeln('Нет отрицательных чисел.');
end.
Пояснення:
Здається так, давно не писав нічого на цій мові