#!/usr/bin/python
# -*- coding: utf-8 -*-
print u"введите число"
a = str(input())
for i in a:<span>
</span><span> if i+i in a:</span><span>
print i+i, u"содержит"</span>
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x>0 and y>0 then
writeln (1 chetvert);
end;
if x<0 and y>0 then
writeln (2 chetvert);
end;
if x<0 and y<0 then
writeln (3 chetvert);
end;
if x>0 and y<0 then
writeln (4 chetvert);
end;
end.
В биты помню это 128 байт=1024 бит
а вот в кб не помню
Var
x: integer;
begin
Write('Введите число ');
Readln(x);
Writeln('Утроенное значение равно ', 3 * x)
end.