// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Введите текст:');
Writeln('Слова, в которых совпадают первая и последняя буквы:');
s.ToWords.Where(x->x[1]=x[x.Length]).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
Введите текст: космос азбука баобаб импульс озеро довод конец
Слова, в которых совпадают первая и последняя буквы:
азбука
баобаб
озеро
довод
1) Растровые изображения состоят из сетки пикселей, в каждом пикселе хранится только информация о его цвете.
При уменьшении изображения в один новый пиксель нужно записать информацию о цветах нескольких старых пикселей, информация о цвете как минимум некоторых старых пикселей будет потеряна, качество изображения снижается.
Что происходит с качеством изображения при увеличении изображения, сказать сложно. При увеличении изображения количество пикселей увеличивается, поэтому нужно выбрать, каким образом достраивать цвета дополнительных пикселей. Если новые пиксели брать как усредненные старые, и в старом изображении были резкие переходы цветов, то изображение станет немного более размытым, но возможны и другие варианты.
2) Основные различия – количество поддерживаемых цветов, поддержка прозрачности, метод кодирования и сжатия
Объекты , свойства , + кони. 12 , 6 , 24 , + 36.
Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.