1. Современное решение
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('>').ToCharArray.Select((c,i)->i.IsOdd?2*c:1*c).Println('')
end.
<u>Пример</u>
> СЛОВО
СЛЛОВВО
2. "Школьное" решение
var
s,s1:string;
i:integer;
begin
Write('>'); Readln(s);
s1:='';
for i:=1 to Length(s) do
if i mod 2<>0 then s1:=s1+s[i]
else s1:=s1+s[i]+s[i];
Writeln(s1)
end.
var
a,b,i: integer;
begin
writeln ('введи два числа');
read (a,b);
if a>b then writeln (a,'большее число')
else
writeln (b,'большее число')
end.
1. 8 бит
2. В гигАбайте 8589934592 бит
3. В гигАбайте 1073741824 байт
1) Рядом с названием какой группы нужно нажать на кнопку, чтобы появилось диалоговое окно, где можно разреженность текста- Шрифт.
2)Рядом с названием какой группы нужно нажать на кнопку , чтобы появилось диалоговое окно, где можно установить красную строку- Абзац.