А) тип входной информации - числовая;
правило преобразования - сумма цифр числа;
6201 - 9
б) предположу, что в этом задании допущена опечатка - числа 6200 и 3100 в последнем столбце нужно поменять местами. В этом случае:
тип входной информации - числовая;
правило преобразования - исходное число умножается на 2;
235*2 = 470
в) тип входной информации - числовая;
правило преобразования - исходное число переводится в двоичную систему счисления;
620(10) = 1 001 101 <span>100(2)
г) </span>тип входной информации - числовая;
правило преобразования - исходное число целочисленно делится на 2 (остаток отбрасывается);
235 / 2 = 117
д) тип входной информации - числовая;
правило преобразования - определяется остаток от деления исходного числа на 5;
235 - 0
е) тип входной информации - символьная;
правило преобразования - подсчитывается количество русских букв в заданной последовательности символов;
Ура! - 3
ж) тип входной информации - символьная;
правило преобразования - подсчитывается количество гласных русских букв в заданной последовательности символов;
Фыва - 2
з) тип входной информации - символьная;
правило преобразования - из заданной последовательности символов берутся символы с номерами 1, 3, 5, ...;
8 бит - 8бт
и) тип входной информации - текстовая;
правило преобразования - определяется первая гласная русских буква в заданном слове;
монитор - О
к) тип входной информации - текстовая;
правило преобразования - буквы данного слова располагаются по алфавиту;
система - аеимсст
var chastnoe,cifra,x,y:integer;
begin
y:=237;
cifra:=(y div 100);//получаем первую цифру числа 237
chastnoe:=(y mod 100);//находим число получившееся после деления
x:=chastnoe*10+cifra;//находим число Х
writeln(x);//выводим
end.
Программы на Паскале прилагаются.
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
begin
y:=x/2;
writeln('y = ',y);
end
else
begin
if x>=0 then
y:=sqrt(3+x);
writeln('y = ',y);
end;
end.
Program menu;
uses crt;
var m, i: integer;
n, z, x, b: longint;
begin
Writeln('Выберете пункт меню:');
Writeln('[1]Вычисление суммы цыфр числа N');
Writeln('[2]Вывод на экран таблицы квадратов первого десятка');
Writeln('[3]Дано число N. Определить его четность');
Writeln('[4]Выход');
read(m);
case m of 1:
begin
clrscr;
writeln('Введите число N:');
read(n);
x := 10;
z := n mod x;
while n div x > 0 do
begin
b := x;
x := x * 10;
z := z + n mod x div b;
end;
Writeln('Ответ: ', z);
end;
2: begin
clrscr;
for i := 1 to 10 do
begin
writeln('Квадрат ', i, ' = ', sqr(i));
end;
end;
3: begin
clrscr;
writeln('Введите число N:');
read(n);
if (n mod 2 ) = 0 then writeln('Число ', n, ' четное.') else writeln('Число ', n, ' не четное.');
end;
4: exit; end;
<span>end.</span>