1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
В слове ПРИМЕР -6 символов
6*8 бит=48 бит или 6 байт
Папирус стоил дорого. Поэтому случалось, что старую запись смывали и
поверх нее писали новый текст. Это -- палимпсест. Писали заостренными
палочками с расщепленными, как теперешние перья, кончиками. У каждого
писца был свой пенал, в нем лежали палочки, в нем же были выдолблены два
углубления для черной и красной краски. Основной текст писали черной
краской, только начало строки, а иногда и начало фразы выделялись красной.
Начало фразы, но не прописная буква -- в египетском письме слова не
отделялись друг от друга. Красной точечкой отделялись отдельные фразы в
поэтических произведениях..
привет. это похоже на код из ардуино. Как считать числа из textBox и записать их в массив если они разделены пробелом?
К примеру если в textBox: 45 6 7, то в массиве будет mas[0]=45; mas[1]=6;
mas[2]=7
пользуйся
Компьютер
Монитор
системный блок
клавиатура
Счастье буз ума - дырявая сума
всякое семя знает своё время