Var x,y,z:integer; {описание переменных и их типа} begin writeln ('введи два числа'); {Вывод на экран сообщения-подсказки} readln (x,y); {считывание переменных} if x<0 then {проверка условия.} if y>x then z:=y {если условие истинно, то мы ищем большее из х и у. если у больше, то присваиваем z значение у} else z:=x {если же больше х, то присваиваем его значение} else {если условие ложно} if y>x then z:=x {то мы ищем меньшее из х и у. если у больше, то присваиваем z значение х} else z:=y; {если же больше х, то присваиваем значение у} writeln (z); {вывод результата на экран} end. {конец программы}
DIM A(6) RANDOMIZE TIMER FOR I = 1 TO 6 A(I) = INT(RND * 20) - 10 IF A(I) > 0 THEN S = S + 1 PRINT A(I); " "; NEXT I PRINT PRINT "S="; S
Новый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(-10,10); if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Старый паскаль АВС var a:array[1..6]of integer; i,s:integer; begin for i:=1 to 6 do begin a[i]:=random(20)-10; if a[i]>0 then s:=s+1; write(a[i],' ') end; writeln; writeln('Количество положительных: ',s) end.
Если я вас правильно понял вам нужно удалить из числа все цифры 1.
На Python это делается довольно просто, если вам разрешили использовать строки, то ответ такой.
n = int(input('>> '))
print('Вы ввели число:',n)
a = str(n).replace('1','')
n = int(a)
print('Полученное число:',n)
Прикрепил файл, он в .txt, переименуйте в .py