//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)<>3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
<span>end.
</span>
Пример ввода:
123
Пример вывода:
3
<span>1 Наименьшим элементом изображения на графическом экране является пиксель.
2 Цвет пикселя на экране монитора формируется из следующих базовых цветов: красного, синего, зелёного.
3 Компьютерная программа может управлять работой компьютера, если она находится в оперативной памяти.
4 Полный путь к файлу имеет вид C:\BOOK\name_may_1.ppt. Расширение этого файла: .ppt
5 В какой строке единицы измерения информации расположены по возрастанию?
Г бит, байт, килобайт, мегабайт, гигабайт.
6 Алфавит двоичной системы счисления: 0, 1.
7 Для пяти букв латинского алфавита заданы их двоичные коды, эти коды представлены в таблице:
А В С D E
000 01 100 10 011
Определить что закодировано в
01 10 100 011 000
В) BDCEA</span>
9 л ведро набрать водой перелить в пятилитровое станет 5л и 4 л, потом вылить из пятилитр. ведра воду , и перелить из девятилитрового в пятилитровое 5 литра, в девятилитровом станет 4 литра ,перелить из 9 литров в пятилитровое. 1 литре, стпнетэ8л в девятилитровом и 5 л в пятилитровое, затем вылить воду из пятилитров. перелить из девятилитров. 5 литров в пятилитровое и в девятилитровом останется три литра
Var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
// Задание №1
var a,b,c:real;
begin
writeln('Введите длины сторон треугольника');
readln(a, b, c);
if (a=b) and (b=c) and(a>0) then
writeln('Равносторонний')
else
writeln('Не равносторонний');
end.
'
//Задание №2
var
a, b, i, s: integer;
begin
writeln('Введите левую границу диапазона');
readln(a);
writeln('Введите правую границу диапазона');
readln(b);
s := 0;
for i := a to b do
if i mod 2 <> 0 then s := s + i;
writeln('Сумма нечетных:', s);
end.