Треугольников 40
и 10 квадратов
1.1. Ответ: 2) 4 раза
1.2. Ответ: 100 Бит
1.3. Ответ: 800 Бит
1.4. Размер переводим в дюймы 10/2,54=3,937 Дюйма
Высчитываем размер края в пикселях 1200*3,937=4724 (пикселей) до круглого значения в меньшую сторону.
K = 4724*4724 = 22316176 пикселей всего на изображении
I = 24 бита на пиксель
(Бит)
535588224/8=66 948 528 (Байт) = 63,85 (МБайт)
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do if s[i]=' ' then begin
if s[1]=s[i+1] then
writeln('слова начинаются с одной и той же буквы')
else writeln('слова начинаются с разных букв');
if s[i-1]=s[i+1] then
write('второе слово начинается с той же буквы, на которую заканчивается первое слово')
else
write('второе слово не начинается с той же буквы, на которую заканчивается первое слово');
break;
end;
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
<u>Пояснения.</u>
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при помощи JoinIntoString.
<u>Пример</u>
А роза упала на лапу Азора
А роза на лапу Азора
using System;
namespace App {
class Program {
static void Main() {
Console.Write("V = ");
var V = double.Parse(Console.ReadLine());
Console.WriteLine("а = {0}", Math.Pow(V, 1 / 3.0));
Console.ReadKey();
}
}
}
