Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
Program Pr1;
uses crt;
var f,c:real;
begin
clrscr;
c:=15;
while c<=30 do begin
f:=c*1.8+32;
writeln(c,'-Цельсия; Фаренгейт - ',f);
c:=c+1;
end;
end.
2)
Program Pr1;
uses crt;
var stroka:string;
i,v,x:integer;
Begin
clrscr;
readln(stroka);
x:=0;
v:=0;
for i:=1 to length(stroka) do begin
if stroka[i]<>' ' then v:=v+1;
if (stroka[i]='т') or (stroka[i]='Т') then x:=x+1;
end;
writeln('Количество букв- ',v,' Количество букв Т -',x);
end.
2^i = I, где I - кол-во возможных вариантов (в данном случае кол-во дорожек), а i - кол-во полученной информации (в битах). Решаем:
2^i = 8; 2^3 = 8; i = 3 ,бита.
Ответ: 3 бита.
Program kvadrat;
uses crt;
var i,a,b: longint;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do
if trunc(sqrt(i))*trunc(sqrt(i)) = i then writeln(i);
end.
Ответ:На Паскале
Код:
var
a,b,c, d:integer;
begin
writeln('введите числа');
readln(a,b,c);
if (a<=b) and (a<=c) then writeln(a);
if (b<=a) and (b<=c) then writeln(b);
if (c<=a) and (c<=b) then writeln(c)
else writeln(d)
end.
Вроде так, в некоторых версиях может выдавать ошибку, лучше составить код без ограничений действий