М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Camall
Camall
03.03.2021 16:40 •  Информатика

Инфа 10 кл задана строка символов и отдельный символ. определить на каком месте в строке впервые встречается такой символ.

👇
Ответ:
hh222
hh222
03.03.2021
Var
a,b:string;
begin
write('Введите строку: ');
readln(a);
write('Введите символ: ');
readln(b);
if pos(b,a)=0 then writeln('Символа ',b,' в строке нет') else writeln('Символ ',b, ' находится на ', pos(b,a), ' месте');
end.
4,7(71 оценок)
Открыть все ответы
Ответ:
vika13082001
vika13082001
03.03.2021
1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.
4,8(12 оценок)
Ответ:
ti0013
ti0013
03.03.2021

from random import randint

n = 10

a = [0]*n

for i in range(0,n):

   a[i] = randint(1,100)

   for i in range(0,n):

       if a[i] % 2==0:

           print('a[',i,']==',a[i])

Объяснение:

при запуске выводит случайные числа

пример вывода

a[ 1 ]== 0

a[ 2 ]== 0

a[ 3 ]== 0

a[ 4 ]== 0

a[ 5 ]== 0

a[ 6 ]== 0

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 0

a[ 3 ]== 0

a[ 4 ]== 0

a[ 5 ]== 0

a[ 6 ]== 0

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 0

a[ 4 ]== 0

a[ 5 ]== 0

a[ 6 ]== 0

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 0

a[ 5 ]== 0

a[ 6 ]== 0

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 2

a[ 5 ]== 0

a[ 6 ]== 0

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 2

a[ 6 ]== 0

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 2

a[ 7 ]== 0

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 2

a[ 7 ]== 96

a[ 8 ]== 0

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 2

a[ 7 ]== 96

a[ 8 ]== 66

a[ 9 ]== 0

a[ 1 ]== 44

a[ 2 ]== 32

a[ 3 ]== 86

a[ 4 ]== 2

a[ 7 ]== 96

a[ 8 ]== 66

>>>

4,8(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ