<span>int A = Convert.ToInt32(t1.text); //получаем значение из поля и переводим строку в число
bool f=false; //объявили логическую переменную и дали ей значен false
while (A!=0) //цикл, пока А не будет равно 0 он выполняется
{
if(A%10==5) //условие, проверяет если при делении А на 10 равно 5, то
f=true; //флаг получает true
A/=10; //А делиться на 10 и записывается в А
}
T2.text=f?"da":"net";
// тернарный оператор, если t2.text =f, то будет da, если не равно, то будет net</span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var m:=Readinteger('Что ищем?');
var k:=a.FindAll(x->x=m).Count;
Writeln('Найдено таких элементов- ',k);
if k>0 then Writeln('Номер первого такого элемента- ',
a.FindIndex(x->x=m)+1)
end.
<u>Пример</u>
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3
Можешь мини-коимикс зделать, думаю пойдет :)
Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное
<span>обработка и построение изображения в том числе построение и обработка 3д графики и декодирование видео</span>