<span>Во-первых, примем ограничение: число должно быть натуральным. т.е. целым и положительным без записи знака.
Во-вторых, возможны два принципиально разных алгоритма.
Первый
алгоритм предполагает, что число помещается оператором ввода в
целочисленную переменную и тогда мы получаем первую цифру, как
результат целочисленного деления на 10, третью - как остаток от целочисленного деления на 100, а вторую - как остаток от деления на 10 результата целочисленного деления на 10.
Второй алгоритм предполагает работу с символьным
изображением числа, т.е. после ввода получается символьная строка длиной
три. Первый (левый) символ будет первой цифрой числа и так далее.
Ниже приводятся тексты программ на языке Pascal, реализующие эти алгоритмы.</span>
<em>**********************************</em>
var
n:integer;
begin
Write('Введите целое трехзначное число без знака: '); Readln(n);
Writeln(n mod 10,(n div 10) mod 10,n div 100)
end.
<em><u>Тестовое решение:
</u></em>Введите целое трехзначное число без знака: 123
321
<em>**********************************</em>
var
n:string;
begin
Write('Введите целое трехзначное число без знака: '); Readln(n);
Writeln(n[3],n[2],n[1])
end.
<em><u>Тестовое решение:
</u></em>Введите целое трехзначное число без знака: 123
321
Var
k:longint;
d,n:integer;
begin
Write('Введите натуральное число (1-2147483647): ');
Read(k);
n:=0;
while k>0 do begin
d:=k mod 10;
k:=k div 10;
if (d mod 2)<>0 then Inc(n)
end;
Writeln('Количество нечетных цифр в числе равно ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1-2147483647): 35632105
Количество нечетных цифр в числе равно 5
Компьютер как система – это система, включающая подсистемы аппаратного обеспечения и информационных ресурсов. ПК - подсистемы системы «человек компьютер». Средства обеспечивающие взаимосвязь между объектами этой системы, называется интерфейсом.
var rost,ves:real;
begin
writeln('Введите вес');
readln(ves);
writeln('Введите рост') ;
readln(rost);
if (rost>=168) and (rost<=178) then
if ves<=rost-115 then writeln('Допущен') else writeln('не допущен') else writeln('не допущен ');
end.
{********************************}
car rost, ves:real;
begin
writeln('введите рост и вес конкурсанта') ;
readln(rost,ves);
if (rost<=168) or (rost>=178) then writeln('не допущен')
else if ves<=rost-115 then writeln('допущен')
else writeln('не допущен');
end.
Пишу 2 варианта, какой больше понравится.
Const
n = 10;
var
s, i: integer;
a: array[1..n] of integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := random(60) - 30;
write(a[i], ' ');
if a[i] > 0 then
s := s + a[i];
end;
writeln;
writeln(s);
end.