Помогите, как это делать

Знания

Информатика

1 ответ:

Валерий Дегтярь4 года назад

0 0

Из пункта а в пункт б при помощи кнопок там f2 f3 f4

Читайте также

Для хранения растрового изображения размером 512×512 пикселей отвели 256 Кбайт памяти. Каково максимально возможное число цветов

Arkadij15

256 цветов в палитреизображения

0 0

4 года назад

Прочитать ещё 2 ответа

Как сделать прозрачный фон у png в SAI?

Юлия Вяткина

255+255+255 для RGB представления цвета в битовой карте

0 0

4 года назад

Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка

marigo-21 [711]

Было занятно сделать все это в виде одного оператора)))

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
ReadlnString('->').ToWords(Arr(',','.'))
 .Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
 .Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
 .SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
 .Println(',')
end.

Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о

0 0

1 год назад

Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0

ГостьЯ мля

Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
end

0 0

4 года назад

Дано натуральное число N. Выяснить, входит ли цифра 7 в запись числа N2.( решение в паскале) Помогите буду очень благодарна

Eroskaz

var n:longint;
 f:boolean;
begin
 write ('N = ');
 readln (n);
 f:=false;
 while (n<>0) do
 begin
 if (n mod 10)=7 then 
 begin
 f:=true;
 break;
 end;
 n:=n div 10;
 end;
 if f then writeln ('YES') else writeln ('NO');
end.

0 0

4 года назад